data(prcpTest)
labels <- c("CENT","AVN","CMCG","ETA","GASP","JMA","NGPS","TCWB","UKMO")
prcpTestData <- ensembleData( forecasts = prcpTest[ ,labels],
dates = prcpTest$date, observations = prcpTest$obs)
DATE <- sort(unique(prcpTestData$dates))[27]
trainDat <- trainingData(prcpTestData, date = DATE,
trainingRule = list(length=25,lag=2))
prcpFit <- fitBMA(trainDat, model = "gamma0")
prcpFit <- fitBMAgamma0(trainDat)
Run the code above in your browser using DataLab