Proszę wziąć pod uwagę następującą syntetyczną ramkę danych:

#Learning to enable splitting contributions spanning two months

start = c(as.Date("2013-01-01"), as.Date("2013-02-01"), as.Date("2013-04-01"), as.Date("2013-04-16"), as.Date("2013-05-16"))
end = c(as.Date("2013-01-31"), as.Date("2013-03-31"), as.Date("2013-04-15"), as.Date("2013-05-15"), as.Date("2013-05-31"))
amount = c(100, 200, 50, 100, 50)

df = data.frame(start,end,amount)

Jest to lista otrzymanych środków pieniężnych i okres, którego dotyczą. Niektóre z tych okresów obejmują dwa miesiące. Chciałbym to zsumować według miesiąca. Dla tych kwot, które odnoszą się do okresu, który obejmuje dwa miesiące, chciałbym liniowo je rozdzielić / rozdzielić między dwa miesiące.

Jaki byłby idiomatycznie poprawny sposób robienia tego w R?