if (FALSE) {
## import water quality and weather data
data(apadbwq)
data(apaebmet)
## qaqc, combine
wq <- qaqc(apadbwq)
met <- qaqc(apaebmet)
dat <- comb(wq, met)
## estimate metabolism
res <- ecometab(dat)
## plot
plot_metab(res)
## change alpha, aggregation period, widths
plot_metab(res, by = 'quarters', alpha = 0.1, widths = 0)
## plot daily raw, no aesthetics
plot_metab(res, by = 'days', pretty = FALSE)
## note the difference if aggregating with a moving window average
plot_metab(res, by = 30)
}
Run the code above in your browser using DataLab