data(us2012)
Obama.ts <- as.timedf(us2012[,3], '%Y-%m-%d', us2012[,8])
# Daily aggregated means for data:
daily <- tsCollapse(Obama.ts, by = "day", mean)
# Weekly aggregated means for data:
weekly <- tsCollapse(Obama.ts, by = "day", factor = 7, mean)
# monthly aggregated means for data:
monthly <- tsCollapse(Obama.ts, by = "month", mean)
# bimonthly or semimonthly aggregated means for data:
bimonthly <- tsCollapse(Obama.ts,by = "month", mean, factor = 2)
Run the code above in your browser using DataLab