Update metrics again and fix actual error, which was not taking (uniq…

…ue()) on the data in the vignette
epiforecasts · Nov 20, 2023 · b4f5052 · b4f5052
1 parent 29787bc
commit b4f5052
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 5 deletions.
diff --git a/data/metrics.rda b/data/metrics.rda
diff --git a/inst/create-metric-tables.R b/inst/create-metric-tables.R
@@ -6,7 +6,7 @@ library(data.table)
 
 ae <- list(
   `Metric` = "Absolute error",
-  `Name` = "ae_point, ae_median",
+  `Name` = list("ae_point", "ae_median"),
   `Functions` = r"(score(), ae_point()), ae_median_sample()",
   `D` = r"($\checkmark$)",
   `C` = r"($\checkmark$)",
@@ -18,7 +18,7 @@ ae <- list(
 
 se <- list(
   `Metric` = "Squared error",
-  `Name` = "se_point, se_mean",
+  `Name` = list("se_point", "se_mean"),
   `Functions` = r"(score(), se_point(), se_mean_sample())",
   `D` = r"($\checkmark$)",
   `C` = r"($\checkmark$)",
@@ -164,7 +164,7 @@ bias <- list(
 
 under_overprediction <- list(
   `Metric` = "Under-, Over-prediction",
-  `Name` = "underprediction, overprediction",
+  `Name` = list("underprediction", "overprediction"),
   `Functions` = r"(score(), interval_score())",
   `D` = r"($-$)",
   `C` = r"($-$)",

diff --git a/man/metrics.Rd b/man/metrics.Rd
diff --git a/vignettes/metric-details.Rmd b/vignettes/metric-details.Rmd
@@ -42,7 +42,10 @@ data$C <- replace(data$C)
 data$B <- replace(data$B)
 data$Q <- replace(data$Q)
 
-data[, 1:6] %>%
+data <- data[, 1:6] %>%
+  unique() 
+
+data %>%
   kbl(format = "html",
       escape = FALSE,
       align = c("lccccl"),