# new DTSg object
x <- DTSg$new(values = flow)
# mean yearly river flows
## R6 method
x$aggregate(
funby = byY_____,
fun = "mean",
na.rm = TRUE
)$print()
## S3 method
print(aggregate(
x = x,
funby = byY_____,
fun = "mean",
na.rm = TRUE
))
# variance and standard deviation of river flows per quarter
## R6 method
x$aggregate(
funby = byYQ____,
fun = c(var = "var", sd = "sd"),
na.rm = TRUE
)$print()
## S3 method
print(aggregate(
x = x,
funby = byYQ____,
fun = c(var = "var", sd = "sd"),
na.rm = TRUE
))
# mean of river flows of all first and all second half years
## R6 method
x$aggregate(
funby = by_m____,
fun = "mean",
na.rm = TRUE,
multiplier = 6
)$print()
## S3 method
print(aggregate(
x = x,
funby = by_m____,
fun = "mean",
na.rm = TRUE,
multiplier = 6
))
Run the code above in your browser using DataLab