Update examples and vignette such that examples don't have any more i…

…nstances where the lower bound of an interval is higher than an upper bound
epiforecasts · Nov 4, 2023 · 6b6a8c2 · 6b6a8c2
1 parent 4beb3a8
commit 6b6a8c2
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/R/metrics-range.R b/R/metrics-range.R
@@ -63,7 +63,7 @@
 #' interval_range <- rep(90, 30)
 #' alpha <- (100 - interval_range) / 100
 #' lower <- qnorm(alpha / 2, rnorm(30, mean = 1:30))
-#' upper <- qnorm((1 - alpha / 2), rnorm(30, mean = 1:30))
+#' upper <- qnorm((1 - alpha / 2), rnorm(30, mean = 11:40))
 #'
 #' interval_score(
 #'   observed = observed,
@@ -73,7 +73,7 @@
 #' )
 #'
 #' # gives a warning, as the interval_range should likely be 50 instead of 0.5
-#' interval_score(observed = 4, upper = 2, lower = 8, interval_range = 0.5)
+#' interval_score(observed = 4, upper = 8, lower = 2, interval_range = 0.5)
 #'
 #' # example with missing values and separate results
 #' interval_score(

diff --git a/man/interval_score.Rd b/man/interval_score.Rd
diff --git a/vignettes/scoring-forecasts-directly.Rmd b/vignettes/scoring-forecasts-directly.Rmd
@@ -207,7 +207,7 @@ observed <- rnorm(30, mean = 1:30)
 interval_range <- 90
 alpha <- (100 - interval_range) / 100
 lower <- qnorm(alpha / 2, rnorm(30, mean = 1:30))
-upper <- qnorm((1 - alpha / 2), rnorm(30, mean = 1:30))
+upper <- qnorm((1 - alpha / 2), rnorm(30, mean = 11:40))
 
 interval_score(
   observed = observed,