fix typo in interval coverage summary

code/summarize_evaluation.R

@@ -56,7 +56,7 @@ summary_all_evals3 <- summary_all_evals1 %>%
   summarise(ae = mean(ae),
             mean_qscore = mean(mean_qscore),
             interval_coverage_0.5 = mean(interval_coverage_0.5),
-            interval_coverage_0.95 = mean(interval_coverage_0.5),
+            interval_coverage_0.95 = mean(interval_coverage_0.95),
             n = n(), scores_imputed = sum(scores_imputed),
             .groups = "keep") %>% ungroup %>%
   mutate(horizon = "[All]")