From 9171da3482ba85b69e3be66d3fdad4094aae4086 Mon Sep 17 00:00:00 2001 From: Nadia Milders Date: Fri, 5 Apr 2024 13:12:06 +0200 Subject: [PATCH] Bug fix in scorecards function WeightedMetrics --- modules/Scorecards/R/tmp/WeightedMetrics.R | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/modules/Scorecards/R/tmp/WeightedMetrics.R b/modules/Scorecards/R/tmp/WeightedMetrics.R index 9d1630c4..08267db4 100644 --- a/modules/Scorecards/R/tmp/WeightedMetrics.R +++ b/modules/Scorecards/R/tmp/WeightedMetrics.R @@ -83,6 +83,10 @@ WeightedMetrics <- function(loaded_metrics, regions, forecast.months, na.rm = na.rm, ncores = ncores) + if (!all(names(dim(weighted.mean)) == c('metric', 'time', 'sdate'))) { + weighted.mean <- Reorder(weighted.mean, c('metric', 'time', 'sdate')) + } + all_metric_means[, , , reg, ref, sys] <- weighted.mean } ## close loop on region -- GitLab