data(slpTest)
labels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData(forecasts = slpTest[ ,labels],
observations = slpTest$obs, dates = slpTest$date)
slpTestDataX <- ensembleData(forecasts = slpTest[ ,labels],
observations = slpTest$obs, dates = slpTest$date,
exchangeable = c(AVN=1, GEM=2, ETA=1, NGM=3, NOGAPS=4))
slpTestFit <- ensembleBMAnormal( slpTestData)
slpTestFitX <- ensembleBMAnormal( slpTestDataX)
data(prcpTest)
labels <- c("CENT","AVN","CMCG","ETA","GASP","JMA","NGPS","TCWB","UKMO")
prcpTestData <- ensembleData( forecasts = prcpTest[ ,labels],
dates = prcpTest$date, observations = prcpTest$obs)
prcpTestFit <- ensembleBMAgamma0(prcpTestData)
Run the code above in your browser using DataLab