secuencia de fechas de lubridación

seq(ymd('2012-04-07'),ymd('2013-03-22'), by = 'weeks')

# you can replace weeks by days too
marcofaga