# get football betting data
data(foot)
# get verification info for these data
tv <- tverify(p=foot$p,o=foot$o)
# get a linear calibration based on verification info
lc <- tgetcal(tv)
# consider an uncalibrated forecast p
p <- cbind(0,0,1)
# see where p is mapped by this calibration
pcal <- tcalibrate(lc,cbind(0,0,1))
# plot the uncalibrated forecast
tplot(p)
# plot the calibrated forecast
tplot(pcal,col="blue",newpage=FALSE,bg="transparent")
Run the code above in your browser using DataLab