# NOT RUN {
# Resample Brompton rainfall and PE data to 15 minute intervals
require(dynatopmodel)
data("brompton")
obs <- aggregate_obs(list("rain"=brompton$rain, "pe"=brompton$pe), dt=15/60)
# check totals for Sept - Oct 2012
sum(obs$rain*15/60, na.rm=TRUE)
sum(brompton$rain, na.rm=TRUE)
# }
Run the code above in your browser using DataLab