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