In walkerjeffd/fluxr: Estimate water quality loads using the FLUX algorithms

library(dplyr)
library(fluxr)
library(lubridate)
library(ggplot2)
library(scales)
library(gridExtra)
theme_set(theme_bw())

data(williamson)

williamson <- filter(williamson, 
                     as.Date(DATE) >= as.Date("2000-10-01"), 
                     as.Date(DATE) <= as.Date("2012-09-30"))

loads <- flux_regression(williamson, interp=TRUE)

plot_flux_summary(loads, site='Williamson', variable='TP')

plot_flux_monthly(loads, site='Williamson', variable='TP')

plot_flux_residuals(loads, site='Williamson', variable='TP')

loads_2002_2012 <- flux_regression(williamson, interp=TRUE, predict_wyear_range = c(2002, 2012))
plot_flux_summary(loads_2002_2012, site='Williamson', variable='TP')
plot_flux_monthly(loads_2002_2012, site='Williamson', variable='TP')
plot_flux_residuals(loads_2002_2012, site='Williamson', variable='TP')

walkerjeffd/fluxr documentation built on Sept. 16, 2021, 1:29 a.m.