library(ggplot2)
library(magrittr) # pipe operator
scores <- example_quantile %>%
as_forecast_quantile %>%
score()
scores <- summarise_scores(scores, by = c("model", "target_type"))
plot_wis(scores,
x = "model",
relative_contributions = TRUE
) +
facet_wrap(~target_type)
plot_wis(scores,
x = "model",
relative_contributions = FALSE
) +
facet_wrap(~target_type, scales = "free_x")
Run the code above in your browser using DataLab