Mam zestaw zdarzeń, z których każdy ma datę początkową i końcową, ale odbywają się w zakresie kilku miesięcy. Chciałbym utworzyć tabelę pokazującą liczbę dni w każdym miesiącu dla tego wydarzenia.

Mam następujący przykład.

event_start_date <- as.Date("23/10/2012", "%d/%m/%Y")
event_end_date   <- as.Date("07/02/2013", "%d/%m/%Y")

Spodziewałbym się, że otrzymam następujący stół:

Oct-12  8
Nov-12  30
Dec-12  31
Jan-13  31
Feb-13  7

Czy ktoś wie o mądrym i eleganckim sposobie robienia tego lub tworzy system pętli jedynej realnej metody?

Jochem