diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_sw_drift.R | 43 |
1 files changed, 32 insertions, 11 deletions
diff --git a/R/PEC_sw_drift.R b/R/PEC_sw_drift.R index 6fcaecf..2dfd651 100644 --- a/R/PEC_sw_drift.R +++ b/R/PEC_sw_drift.R @@ -8,7 +8,9 @@ #' @param applications Number of applications for selection of drift percentile #' @param drift_percentages Percentage drift values for which to calculate PECsw. #' 'drift_data' and 'distances' if not NULL. -#' @param drift_data Source of drift percentage data +#' @param drift_data Source of drift percentage data. If 'JKI', the [drift_data_JKI] +#' included in the package is used. If 'RF', the Rautmann formula is used, if +#' implemented for the crop type and number of applications #' @param crop Crop name (use German names for JKI data), defaults to "Ackerbau" #' @param distances The distances in m for which to get PEC values #' @param water_depth Depth of the water body in cm @@ -19,15 +21,23 @@ #' @author Johannes Ranke #' @examples #' PEC_sw_drift(100) -PEC_sw_drift <- function(rate, - applications = 1, - water_depth = 30, - drift_percentages = NULL, - drift_data = "JKI", - crop = "Ackerbau", - distances = c(1, 5, 10, 20), - rate_units = "g/ha", - PEC_units = "\u00B5g/L") +#' # Alternatively, we can use the formula for a single application to "Ackerbau" from the paper +#' PEC_sw_drift(100, drift_data = "RF") +#' +#' # This makes it possible to also use different substances +#' PEC_sw_drift(100, distances = c(1, 3, 5, 6, 10, 20, 50, 100), drift_data = "RF") +#' +#' # Using custom drift percentages is also supported +#' PEC_sw_drift(100, drift_percentages = c(2.77, 0.95, 0.57, 0.48, 0.29, 0.15, 0.06, 0.03)) +PEC_sw_drift <- function(rate, + applications = 1, + water_depth = 30, + drift_percentages = NULL, + drift_data = c("JKI", "RF"), + crop = "Ackerbau", + distances = c(1, 5, 10, 20), + rate_units = "g/ha", + PEC_units = "\u00B5g/L") { rate_units <- match.arg(rate_units) PEC_units <- match.arg(PEC_units) @@ -36,8 +46,19 @@ PEC_sw_drift <- function(rate, PEC_sw_overspray <- rate * 1e6 / water_volume # in µg/L dist_index <- as.character(distances) + RF <- list( + "1" = list("Ackerbau" = function(distance) 2.7705 * distance^-0.9787) # p. 134 + ) + if (drift_data == "RF") { + if (is.null(RF[[as.character(applications)]])) stop("Rautmann formula not included for ", applications, " applications") + if (is.null(RF[[as.character(applications)]][[crop]])) stop("Rautmann formula not included for this case") + } + if (is.null(drift_percentages)) { - drift_percentages <- pfm::drift_data_JKI[[applications]][dist_index, crop] + drift_percentages <- switch(drift_data, + JKI = pfm::drift_data_JKI[[applications]][dist_index, crop], + RF = RF[[applications]][[crop]](distances) + ) names(drift_percentages) <- paste(dist_index, "m") } else { names(drift_percentages) <- paste(drift_percentages, "%") |