Tengo un conjunto de eventos en los que cada uno tiene una fecha de inicio y finalización, pero tienen lugar en el transcurso de varios meses. Me gustaría crear una tabla que muestre la cantidad de días de cada mes para este evento.

Tengo el siguiente ejemplo.

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

Espero sacar una tabla como la siguiente:

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

¿Alguien sabe acerca de una forma inteligente y elegante de hacer esto o está creando un sistema de bucles el único método viable?

Jochem