diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_sw_exposit_runoff.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/PEC_sw_exposit_runoff.R b/R/PEC_sw_exposit_runoff.R index 87fd88b..f56b8f8 100644 --- a/R/PEC_sw_exposit_runoff.R +++ b/R/PEC_sw_exposit_runoff.R @@ -16,9 +16,9 @@ #' @export perc_runoff_exposit #' @examples #' print(perc_runoff_exposit) -Koc_breaks <- c(0, 20, 50, 100, 200, 500, 1000, 2000, 5000, 10000, 20000, 50000, Inf) +{Koc_breaks <- c(0, 20, 50, 100, 200, 500, 1000, 2000, 5000, 10000, 20000, 50000, Inf) tmp <- paste(Koc_breaks[1:11], Koc_breaks[2:12], sep = "-") -Koc_classes <- c(tmp[1], paste0(">", tmp[2:11]), ">50000") +Koc_classes <- c(tmp[1], paste0(">", tmp[2:11]), ">50000")} perc_runoff_exposit <- data.frame( Koc_lower_bound = Koc_breaks[1:12], dissolved = c(0.11, 0.151, 0.197, 0.248, 0.224, 0.184, 0.133, 0.084, 0.037, 0.031, 0.014, 0.001), |