# NOT RUN {
data("rain")
require("graphics")
## Postprocess HRES and CTR forecast using data of 2 years
X <- rain[1:(2 * 365), c("HRES", "CTR"), drop = FALSE]
y <- rain[1:(2 * 365), "obs"]
## Fit IDR and plot the predictive CDF when the HRES forecast is 1 mm and
## CTR is 0 mm
fit <- idr(y = y, X = X)
pred <- predict(fit, data = data.frame(HRES = 1, CTR = 0))
plot(pred)
# }
Run the code above in your browser using DataLab