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