data(prcp)
prcpData <- ensembleData( dates = prcp$date, observations = prcp$obs,
forecasts = prcp[,c("CENT","AVN","CMCG","ETA",
"GASP","JMA","NGPS","TCWB","UKMO")])
prcpFit <- ensembleBMAgamma0(prcpData)
hist(prcpData$obs)
brierSkillScores(prcpFit, prcpData, thresholds = c(0, 10, 50, 100))
Run the code above in your browser using DataLab