true_values <- rnorm(10, mean = 1:10)
alpha <- 0.5
lower <- qnorm(alpha / 2, rnorm(10, mean = 1:10))
upper <- qnorm((1 - alpha / 2), rnorm(10, mean = 1:10))
qs_lower <- quantile_score(true_values,
predictions = lower,
quantiles = alpha / 2
)
qs_upper <- quantile_score(true_values,
predictions = upper,
quantiles = 1 - alpha / 2
)
interval_score <- (qs_lower + qs_upper) / 2
Run the code above in your browser using DataLab