## Not run:
# require(zoo)
# require(lubridate)
# data(co2)
# x <- ISOdate(1959, 01, 01, 00) + dyears(index(as.zoo(co2)) - 1959)
# co2 <- as.tsdb(data.frame(timestamp=x, value=as.numeric(co2)))
# aggregate(co2, seconds=60 * 60 * 24 * 365 * 5)
# ## End(Not run)
Run the code above in your browser using DataLab