Update crps_logs_score.R

eco4cast · Nov 17, 2023 · 54a9a6d · 54a9a6d
1 parent 5158fb8
commit 54a9a6d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/crps_logs_score.R b/R/crps_logs_score.R
@@ -68,7 +68,7 @@ summarize_forecast <- function(forecast, extra_groups = NULL) {
                 "datetime", "family", "variable", "pubDate", extra_groups)
 
   forecast |> 
-    dplyr::recode("family", from="ensemble", to="sample") |> 
+    dplyr::mutate(family = ifelse(family == "ensemble", "sample", family)) |> 
     dplyr::group_by(dplyr::across(dplyr::any_of(grouping))) |> 
     dplyr::summarise(dist = infer_dist(family, parameter, prediction),
                      .groups = "drop") |>