diff --git a/modules/Skill/Skill.R b/modules/Skill/Skill.R index 7c829c253512e11437bf7f983b99cb04d842af48..b59b99a07180008fadd8048623d4fbdf704694a3 100644 --- a/modules/Skill/Skill.R +++ b/modules/Skill/Skill.R @@ -68,7 +68,7 @@ Skill <- function(recipe, data, agg = 'global') { skill_metrics <- list() for (metric in strsplit(metrics, ", | |,")[[1]]) { # Whether the fair version of the metric is to be computed - if (metric %in% c('frps', 'frpss', 'bss10', 'bss90', + if (metric %in% c('frps', 'frpss', 'fbss10', 'fbss90', 'fcrps', 'fcrpss')) { Fair <- T } else { diff --git a/modules/Visualization/R/plot_metrics.R b/modules/Visualization/R/plot_metrics.R index 9850b2c79fe89a4eb67ec5390ed67c6fa8db62ca..5b52c062cb89e2511a62f92e09218653b98f51e6 100644 --- a/modules/Visualization/R/plot_metrics.R +++ b/modules/Visualization/R/plot_metrics.R @@ -77,7 +77,7 @@ plot_metrics <- function(recipe, data_cube, metrics, # Group different metrics by type skill_scores <- c("rpss", "bss90", "bss10", "frpss", "crpss", "mean_bias_ss", "enscorr", "rpss_specs", "bss90_specs", "bss10_specs", - "enscorr_specs", "rmsss", "msss") + "enscorr_specs", "rmsss", "msss", "fbss10", "fbss90") scores <- c("rps", "frps", "crps", "frps_specs", "mse") statistics <- c("cov", "std_hcst", "std_obs", "var_hcst", "var_obs", "n_eff") @@ -93,8 +93,8 @@ plot_metrics <- function(recipe, data_cube, metrics, units <- NULL # Define plot characteristics and metric name to display in plot if (name %in% c("rpss", "bss90", "bss10", "frpss", "crpss", - "rpss_specs", "bss90:_specs", "bss10_specs", - "rmsss", "msss")) { + "rpss_specs", "bss90_specs", "bss10_specs", + "rmsss", "msss", "fbss90", "fbss10")) { display_name <- toupper(strsplit(name, "_")[[1]][1]) metric <- var_metric[[name]] brks <- seq(-1, 1, by = 0.2) diff --git a/tests/testthat/test-decadal_monthly_3.R b/tests/testthat/test-decadal_monthly_3.R index 92950f73ec1417fb6df2d0fd893946f3f26c1717..6405c1915c5fb59c23e638ad6fa7805c10735243 100644 --- a/tests/testthat/test-decadal_monthly_3.R +++ b/tests/testthat/test-decadal_monthly_3.R @@ -150,7 +150,7 @@ TRUE ) expect_equal( as.vector(skill_metrics$bss10[, , 1, 2]), -c(-0.1904762, -0.1904762, -0.1904762), +c(-0.3227513, -0.3227513, -0.3227513), tolerance = 0.0001 ) expect_equal(