# NOT RUN {
# new DTSg object
x <- DTSg$new(values = flow)
# plot time series
if (requireNamespace("dygraphs", quietly = TRUE) &&
requireNamespace("RColorBrewer", quietly = TRUE)) {
## R6 method
x$plot()
## S3 method
plot(x = x)
}
# }
Run the code above in your browser using DataLab