data(slp)
slpData <- ensembleData(forecasts = slp[c("AVN","GEM","ETA","NGM","NOGAPS")],
observations = slp$obs, dates = slp$date)
slpFit <- ensembleBMAnormal(slpData,
control = controlBMAnormal(maxIter = 100,
equalVariance = FALSE,
biasCorrection = "additive"))
Run the code above in your browser using DataLab