From b5de13c0f51ee4c0db02ea7ac8404ad12e55a978 Mon Sep 17 00:00:00 2001 From: eduzenli Date: Mon, 23 Sep 2024 10:43:11 +0200 Subject: [PATCH] restore_ens =T TRUE condition fixed --- R/Intlr.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/Intlr.R b/R/Intlr.R index beb8d7e..8b5dabe 100644 --- a/R/Intlr.R +++ b/R/Intlr.R @@ -654,7 +654,7 @@ Intlr <- function(exp, obs, exp_cor = NULL, exp_lats, exp_lons, obs_lats, obs_lo # restore ensemble dimension in observations if it existed originally if (restore_ens) { - predictand <- MergeDims (predictand, merge_dims = c(time_dim, sdate_dim), rename_dim = sdate_dim) + predictand <- s2dv::InsertDim(predictand, posdim = 1, lendim = 1, name = member_dim) } # Return a list of three elements -- GitLab