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)
## change aggregation period and alpha
aggremetab(res, by = 'months', alpha = 0.1)
## use a moving window average of 30 days
aggremetab(res, by = 30)
## use a left-centered window instead
aggremetab(res, by = 30, sides = 1)
}
Run the code above in your browser using DataLab