data(slpTest)
memberLabels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData(forecasts = slpTest[ ,memberLabels],
observations = slpTest$obs, dates = slpTest$date)
slpTestBMA <- ensembleBMA( slpTestData, date="2000063000",
model="normal", trainingRule = list(length = 25, lag = 2))
slpTestForc <- quantileForecast( slpTestBMA, slpTestData,
date="2000063000")
Run the code above in your browser using DataLab