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