# NOT RUN {
# new DTSg object
x <- DTSg$new(values = flow)
# mean yearly river flows
## R6 method
x$aggregate(funby = byY_____, fun = "mean", na.rm = TRUE)
## S3 method
aggregate(x = x, funby = byY_____, fun = "mean", na.rm = TRUE)
# standard deviation and variance of river flows per quarter
## R6 method
x$aggregate(funby = byYQ____, fun = c(sd = "sd", var = "var"), na.rm = TRUE)
## S3 method
aggregate(x = x, funby = byYQ____, fun = c(sd = "sd", var = "var"), na.rm = TRUE)
# }
Run the code above in your browser using DataLab