data(slpTest)
labels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData( forecasts = slpTest[ ,labels],
observations = slpTest$obs, dates = slpTest$date)
slpTestFit <- ensembleBMAnormal(slpTestData)
slpTestForc <- quantileForecastBMA( slpTestFit, slpTestData)
data(srft)
labels <- c("CMCG","ETA","GASP","GFS","JMA","NGPS","TCWB","UKMO")
srftData <- ensembleData( forecasts = srft[ ,labels],
dates = srft$date, observations = srft$obs,
latitude = srft$lat, longitude = srft$lon)
srftFit <- ensembleBMAnormal(srftData, date = "2004012900")
data(srftGrid)
srftGridData <- ensembleData(forecasts = srftGrid[ ,labels],
latitude = srftGrid$lat, longitude = srftGrid$lon)
srftGridForc <- quantileForecastBMA( srftFit, srftGridData,
date = "2004012900")
Run the code above in your browser using DataLab