move error message from bias_quantile_single_vector() to `bias_quan…

…tile()`

R/metrics-quantile.R

@@ -397,9 +397,7 @@ bias_quantile <- function(observed, predicted, quantile, na.rm = TRUE) {
     )
   }
   bias <- sapply(1:n, function(i) {
-    suppressMessages(
-      bias_quantile_single_vector(observed[i], predicted[i, ], quantile, na.rm)
-    )
+    bias_quantile_single_vector(observed[i], predicted[i, ], quantile, na.rm)
   })
   return(bias)
 }
@@ -445,10 +443,6 @@ bias_quantile_single_vector <- function(observed, predicted, quantile, na.rm) {
     median_prediction <- predicted[quantile == 0.5]
   } else {
     # if median is not available, compute as mean of two innermost quantile
-    message(
-      "Median not available, computing bias as mean of the two innermost ",
-      "quantiles in order to compute bias."
-    )
     median_prediction <-
       0.5 * predicted[quantile == max(quantile[quantile < 0.5])] +
       0.5 * predicted[quantile == min(quantile[quantile > 0.5])]