if (FALSE) {
## load data
data(chldat)
## as tidal object
dat_in <- tidal(chldat)
res <- wrtds(dat_in)
## as tidalmean object
dat_in <- tidalmean(chldat)
res <- wrtds(dat_in)
## multiple quantiles
res <- wrtds(dat_in, tau = c(0.1, 0.5, 0.9))
}
Run the code above in your browser using DataLab