compute_load {realTimeloads}R Documentation

Compute load with uncertainty on concentration estimates

Description

Compute load with uncertainty on concentration estimates from bootstrap regression after Rustomji and Wilkinson (2008)

Usage

compute_load(Surrogate, Discharge, Regression, period = NULL)

Arguments

Surrogate

data frame with time (PosixCt) and surrogate(s) (x,...)

Discharge

data frame with time (PosixCt) and discharge in cubic meters per second

Regression

data frame from bootstrap_regression() that determines analyte(surrogate)

period

two element vector time (PosixCt) indicating period over which load is computed

Value

list with data frames of estimated concentration and flux used to compute load (i.e., the sum of flux)

Note

Surrogate and Discharge time series can be on different time steps

If period is NULL, computes load over time in Surrogate

Warning

Discharge should be in cubic meters per second

Analyte concentration estimated from surrogate should be in milligrams per second

Author(s)

Daniel Livsey (2023) ORCID: 0000-0002-2028-6128

References

Rustomji, P., & Wilkinson, S. N. (2008). Applying bootstrap resampling to quantify uncertainty in fluvial suspended sediment loads estimated using rating curves. Water resources research, 44(9).https://doi.org/10.1029/2007WR006088

Helsel, D.R., Hirsch, R.M., Ryberg, K.R., Archfield, S.A., and Gilroy, E.J., 2020, #' Statistical methods in water resources: U.S. Geological Survey Techniques and Methods, book 4, chap. A3, 458 p. https://doi.org/10.3133/tm4a3

Examples


Turbidity_FNU <- realTimeloads::ExampleData$Sonde$Turbidity
TSS_mg_per_l <- realTimeloads::ExampleData$Sediment_Samples$SSCpt_mg_per_liter
Discharge <- realTimeloads::ExampleData$Discharge
Calibration <- data.frame(Turbidity_FNU,TSS_mg_per_l)
time <- realTimeloads::ExampleData$Sonde$time
Surrogate <- data.frame(time,Turbidity_FNU)
Regression = bootstrap_regression(Calibration,'TSS_mg_per_l~Turbidity_FNU')
period <- c(as.POSIXct("2000-02-16 AEST"),as.POSIXct("2000-03-16 AEST"))
Output <- compute_load(Surrogate,Discharge,Regression,period)


[Package realTimeloads version 1.0.0 Index]