# NOT RUN {
## temporal aggregation
library(EmiStatR)
data(P1)
colnames(P1) <- c("time", "value")
head(P1)
tail(P1)
P1.agg <- Agg(data = P1, nameData = "value", delta = 120 , func = sum,
namePlot = "")
head(P1.agg)
tail(P1.agg)
# }
Run the code above in your browser using DataLab