data(foot)
# see the distribution of forecasts
tplot(foot$p,main="Bookmaker forecasts of \n football matches",
dimnames=c("Home Win","Draw","Away Win"))
# see how well forecasts compare with results
# create object of class tverify
foot.verify <- tverify(p=foot$p,o=foot$o)
# plot ternary reliability diagram
dev.new()
plot(foot.verify, thresh=3)
# get a (linear) calibration of these data
# create an object of class tverify
foot.calib <- tgetcal(foot.verify)
# plot ternary reliability diagram of calibrated forecasts
dev.new()
plot(foot.calib, thresh=3)
Run the code above in your browser using DataLab