diff options
| author | Ranke Johannes <johannes.ranke@agroscope.admin.ch> | 2024-02-01 14:35:02 +0100 |
|---|---|---|
| committer | Ranke Johannes <johannes.ranke@agroscope.admin.ch> | 2024-02-01 14:35:02 +0100 |
| commit | 1e8172be565b856c8e6074a62736bc1686df6da8 (patch) | |
| tree | 6d5c88d397ded91a6be88c45efa7827bbf7b2b1e /R | |
| parent | 5b75b8aeb0458e19e29a7ddaec18d5ebf6f5bb4c (diff) | |
Improve formatting
Diffstat (limited to 'R')
| -rw-r--r-- | R/PEC_sw_drift.R | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/R/PEC_sw_drift.R b/R/PEC_sw_drift.R index b9d0bd5..eccb5bf 100644 --- a/R/PEC_sw_drift.R +++ b/R/PEC_sw_drift.R @@ -22,7 +22,8 @@ #' @author Johannes Ranke #' @examples #' PEC_sw_drift(100) -#' # Alternatively, we can use the formula for a single application to "Ackerbau" from the paper +#' # 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 distances @@ -95,14 +96,16 @@ PEC_sw_drift <- function(rate, #' # One application to early or late fruit crops #' drift_data_JKI[[1]][as.character(c(3, 5, 20, 50)), "Obstbau frueh"] #' drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, early") -#' drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, early", formula = "FOCUS") +#' drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, early", +#' formula = "FOCUS") #' drift_data_JKI[[1]][as.character(c(3, 5, 20, 50)), "Obstbau spaet"] #' drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, late") -#' drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, late", formula = "FOCUS") +#' drift_percentages_rautmann(c(3, 5, 20, 50), crop_group = "fruit, late", +#' formula = "FOCUS") #' -#' # We get a continuum if the waterbody covers the hinge distance (11.4 m for 1 early app to fruit) -#' drift_percentages_rautmann(seq(10, 13, by = 0.2), crop_group = "fruit, early", formula = "FOCUS") -#' x <- seq(1, 30, by = 0.1) +#' # We get a continuum if the waterbody covers the hinge distance +#' # (11.4 m for 1 early app to fruit) +#' x <- seq(3, 30, by = 0.1) #' d <- drift_percentages_rautmann(x, crop_group = "fruit, early", formula = "FOCUS") #' plot(x, d, type = "l", #' xlab = "Distance of near edge [m]", |