data(slpTest)
memberLabels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData(forecasts = slpTest[ ,memberLabels],
observations = slpTest$obs, dates = slpTest$date)
\dontrun{
slpTestFit <- ensembleBMA( slpTestData, model = "normal",
trainingRule = list(length=30,lag=2))
}
slpTestFit <- ensembleBMAnormal( slpTestData,
trainingRule = list(length=30,lag=2))
Run the code above in your browser using DataLab