diff options
author | Johannes Ranke <jranke@uni-bremen.de> | 2018-01-29 10:11:27 +0100 |
---|---|---|
committer | Johannes Ranke <jranke@uni-bremen.de> | 2018-01-29 10:22:14 +0100 |
commit | ffeec05d913f2e987da362c05df2afc2a8a23965 (patch) | |
tree | 0529da07666fc302be5cad765eb4f9aaa7e64d84 /R/PEC_sw_exposit_runoff.R | |
parent | b9ce44748f2795ae1f35fe5a510e88635f247a7f (diff) |
Documentation fixes and updates
Diffstat (limited to 'R/PEC_sw_exposit_runoff.R')
-rw-r--r-- | R/PEC_sw_exposit_runoff.R | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/R/PEC_sw_exposit_runoff.R b/R/PEC_sw_exposit_runoff.R index 064b710..f56b8f8 100644 --- a/R/PEC_sw_exposit_runoff.R +++ b/R/PEC_sw_exposit_runoff.R @@ -13,12 +13,12 @@ #' } #' @source Excel 3.01 spreadsheet available from #' \url{https://www.bvl.bund.de/DE/04_Pflanzenschutzmittel/03_Antragsteller/04_Zulassungsverfahren/07_Naturhaushalt/psm_naturhaush_node.html#doc1400590bodyText3} -#' @export +#' @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), @@ -43,12 +43,11 @@ rownames(perc_runoff_exposit) <- Koc_classes #' @export #' @examples #' print(perc_runoff_reduction_exposit) -buffers <- c("No buffer", paste(c(5, 10, 20), "m")) perc_runoff_reduction_exposit <- list( "3.01" = data.frame( dissolved = c(0, 40, 60, 80), bound = c(0, 40, 85, 95), - row.names = buffers), + row.names = c("No buffer", paste(c(5, 10, 20), "m"))), "2.0" = data.frame( dissolved = c(0, 97.5), bound = c(0, 97.5), |