# NOT RUN {
data("WorldEvents")
## Average forecast for each item
with(WorldEvents, tapply(forecast, item, mean))
## Brier scores
bs <- calcscore(answer ~ forecast, data = WorldEvents, bounds=c(0,1))
# }
Run the code above in your browser using DataLab