data("WorldEvents")
## Raw log scores
log1 <- logscore(answer ~ forecast, data=WorldEvents)
## Raw log scores plus group means
log2 <- logscore(answer ~ forecast, data=WorldEvents,
group="forecaster")
Run the code above in your browser using DataLab