aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2017-11-03 11:18:10 +0100
committerJohannes Ranke <jranke@uni-bremen.de>2017-11-03 11:18:10 +0100
commiteb4465035dd44907eae3ea0340221316b7cfca12 (patch)
tree0bd9534b190cffd63fbf7a02f8dbe6b244cf6dfc /R
parent06b528f0c19ca9f7a311612c0e9ae80c0d0c1d3f (diff)
Also return runoff percentages
Diffstat (limited to 'R')
-rw-r--r--R/PEC_sw_exposit_runoff.R9
1 files changed, 5 insertions, 4 deletions
diff --git a/R/PEC_sw_exposit_runoff.R b/R/PEC_sw_exposit_runoff.R
index 618b532..3370088 100644
--- a/R/PEC_sw_exposit_runoff.R
+++ b/R/PEC_sw_exposit_runoff.R
@@ -69,6 +69,7 @@ perc_runoff_reduction_exposit <- list(
#' @param V_event The unreduced runoff volume, equivalent to 10 mm precipitation on 1 ha
#' @return A list containing the following components
#' \describe{
+#' \item{perc_runoff}{The runoff percentages for dissolved and bound substance}
#' \item{Input}{A matrix containing dissolved and bound input for the different distances}
#' \item{PEC_sw_runoff}{A matrix containing PEC values for dissolved and bound substance
#' for the different distances. If the rate was given in g/ha, the PECsw are in microg/L.}
@@ -111,9 +112,9 @@ PEC_sw_exposit_runoff <- function(rate, Koc, DT50 = Inf, t_runoff = 3,
PEC_sw_runoff <- 1000 * runoff_input / V_flowing_ditch_runoff
- result <- list(Rate = rate,
- Koc = Koc,
- Input = runoff_input,
- PEC_sw_runoff = PEC_sw_runoff)
+ result <- list(
+ perc_runoff = 100 * f_runoff,
+ runoff = runoff_input,
+ PEC_sw_runoff = PEC_sw_runoff)
return(result)
}

Contact - Imprint