data(slpTest)
memberLabels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData(forecasts = slpTest[ ,memberLabels],
observations = slpTest$obs, dates = slpTest$date)
DATE <- sort(unique(slpTestData$dates))[27]
trainDat <- trainingData( slpTestData, date=DATE,
trainingRule=list(length=25,lag=2))
slpFitA <- fitBMA(trainDat, model = "normal")
D <- as.numeric(slpTestData$dates) <= 25
slpFitB <- fitBMA(slpTestData[D, ], model = "normal")
Run the code above in your browser using DataLab