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")
  slpTestForc <- quantileForecastBMA( slpTestBMA, slpTestData, 
                                      date="2000063000")Run the code above in your browser using DataLab