## temporal aggregation
library(EmiStatR)
data(P1)
colnames(P1) <- c("time", "P1")
head(P1)
library(stUPscales)
P1.agg <- Agg.t(data = P1, nameData = "P1", delta = 120 , func = sum,
namePlot = "Temporal aggregation of precipitation P1")
head(P1.agg)
tail(P1.agg)
Run the code above in your browser using DataLab