From 904a86fa92f1577414f2fce2bdbfe21e12381106 Mon Sep 17 00:00:00 2001 From: Ranke Johannes Date: Thu, 1 Feb 2024 10:39:53 +0100 Subject: Calculate drift percentages and PECsw using the Rautmann formula --- inst/data_generation/drift_parameters_focus.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'inst/data_generation') 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")) -- cgit v1.2.1