data(slp)
slpData <- ensembleData(forecasts = slp[c("AVN","GEM","ETA","NGM","NOGAPS")],
observations = slp$obs, dates = slp$date)
slpFit <- ensembleBMAnormal( slpData)
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)
Run the code above in your browser using DataLab