diff options
| author | Ranke Johannes <johannes.ranke@agroscope.admin.ch> | 2024-02-01 10:39:53 +0100 |
|---|---|---|
| committer | Ranke Johannes <johannes.ranke@agroscope.admin.ch> | 2024-02-01 10:39:53 +0100 |
| commit | 904a86fa92f1577414f2fce2bdbfe21e12381106 (patch) | |
| tree | f1384a12882bff584334932e533d060338e1e0ad /inst/data_generation | |
| parent | 7bf5aad5e3b89c157d1b31a586ee87a25386117d (diff) | |
Calculate drift percentages and PECsw using the Rautmann formula
Diffstat (limited to 'inst/data_generation')
| -rw-r--r-- | inst/data_generation/drift_parameters_focus.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/inst/data_generation/drift_parameters_focus.R b/inst/data_generation/drift_parameters_focus.R index d685cdf..1c344f8 100644 --- a/inst/data_generation/drift_parameters_focus.R +++ b/inst/data_generation/drift_parameters_focus.R @@ -22,7 +22,8 @@ combined$crop_group = c( drift_parameters_focus <- combined |> mutate(across(2:3, as.integer)) |> - mutate(across(4:8, as.numeric)) + mutate(across(4:8, as.numeric)) |> + mutate(hinge = if_else(is.na(hinge), Inf, hinge)) save(drift_parameters_focus, file = here("data/drift_parameters_focus.RData")) |