data(slpTest)
memberLabels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData( forecasts = slpTest[ ,memberLabels],
observations = slpTest$obs, dates = slpTest$date)
trainDat <- trainingData(slpTestData, date = "2000063000",
trainingRule = list(length=30,lag =2))
slpTestFitTD <- fitBMAnormal(trainDat)
Run the code above in your browser using DataLab