У меня есть ряд событий, каждое из которых имеет дату начала и окончания, но они происходят в течение нескольких месяцев. Я хотел бы создать таблицу, которая показывает количество дней в каждом месяце для этого события.

У меня есть следующий пример.

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

Я ожидал бы получить таблицу как следующее:

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

Кто-нибудь знает об умном и элегантном способе сделать это, или создание системы циклов - единственный жизнеспособный метод?

Jochem