ensembleBMA( ensembleData, dates = NULL, trainingRule = list(length=30,lag=2),
control = NULL, model = NULL, warmStart = FALSE, minCRPS = NULL,
exchangeable = NULL, popData = NULL)
ensembleData
, temperatureData
, pressureData
,
or precipitationData
object including ensemble forecasts,
observations and dates.length
and lag
for the training period.
The default is to use a 30 time step training period for a forecast
2 time steps ahead of the last time step in the training period.controlBMAnormal()
for normal models
and controlBMAgamma0()
for gamma models with a point mass at 0."normal"
, typically used for temperature
or pressure data, and "gamma0"
,
typically used for precipitation data.x
in chronological order.control
.transformation
(if any).
Used for quantile forecasts and verification.
This is input as part of control
.dates
that cannot be forecast
with the training rule, the corresponding BMA model parameter outputs will
be missing (NA
) but not NULL
.
The training rule uses the number of days corresponding to its
length
regardless of whether or not the dates are consecutive.
The following methods are available for the output of ensembleBMA
:
cdfBMA
, quantileForecastBMA
, bmaModelParameters
,
brierScore
, crps
and mae
.J. M. Sloughter, A. E. Raftery, T. Gneiting and C. Fraley, Probabilistic quantitative precipitation forecasting using Bayesian model averaging, Monthly Weather Review 135:3209--3220, 2007.
C. Fraley, A. E. Raftery, T. Gneiting and J. M. Sloughter,
ensembleBMA
: An R
Package for Probabilistic Forecasting
using Ensembles and Bayesian Model Averaging,
Technical Report No. 516, Department of Statistics, University of
Washington, August 2007.
ensembleData
,
ensembleBMAnormal
,
ensembleBMAgamma0
,
cdfBMA
,
quantileForecastBMA
,
bmaModelParameters
,
brierScore
,
crps
,
mae
,
controlBMAnormal
,
controlBMAgamma0
data(slpTest)
labels <- c("AVN","GEM","ETA","NGM","NOGAPS")
slpTestData <- ensembleData(forecasts = slpTest[ ,labels],
observations = slpTest$obs, dates = slpTest$date)
slpTestFit <- ensembleBMA( slpTestData, model = "normal")
data(prcp)
labels <- c("CENT","AVN","CMCG","ETA","GASP","JMA","NGPS","TCWB","UKMO")
prcpTestData <- ensembleData( forecasts = prcpTest[ , labels],
dates = prcpTest$date, observations = prcpTest$obs)
prcpTestFit <- ensembleBMA(prcpTestData, model = "gamma0")
Run the code above in your browser using DataLab