calNGR | R Documentation |
This function implements an EMOS method that adopts the Non-homogeneous Gaussian Regression (NGR; Gneiting et al. 2005) for use with ensemble forecasts. In particular, it uses a constant term and the ensemble mean signal as predictors for the calibrated forecast mean and a constant term and the ensemble spread for the inflation (shrinkage) of the ensemble spread. NGR approaches have been applied in many previous works, but mostly in the context of short-term forecasts. Only Tippet and Barnston 2008 have used NGRs in the context of seasonal forecasting.
calNGR(
fcst.grid,
obs.grid,
crossval = TRUE,
type = c("NGR", "ensNGR"),
apply.to = c("all", "sig"),
alpha = 0.1
)
fcst.grid |
climate4R grid. Forecasts to be calibrated (typically on a monthly/seasonal basis). At the moment, only gridded data are supported. |
obs.grid |
climate4R grid. Reference observations the forecasts are calibrated towards (typically on a monthly/seasonal basis). |
crossval |
Logical. TRUE (default) for leave-one-out-out cross-validation. FALSE for not cross-validation. |
type |
Logical. NGR or ensNGR. In the former (latter) case, the parameters are optimized by minimizing the CRPS (fair CRPS). |
apply.to |
Character. If |
alpha |
Significance (0.1 by default) of the ensemble mean correlation (i.e. |
climate4R grid. Calibrated forecasts.
Ensemble Model Output Statistics (EMOS) methods use the correspondence between the ensemble mean and the observations in the calibration process.
R. Manzanas and J. Bhend.
Gneiting, T., A.E. Raftery, A.H. Westveld, and T.Goldman, 2005: Calibrated Probabilistic Forecasting Using Ensemble Model Output Statistics and Minimum CRPS Estimation. Mon. Wea. Rev., 133 (5): 1098–1118. doi:10.1175/MWR2904.1
Tippett, M.K. and A.G. Barnston, 2008: Skill of Multimodel ENSO Probability Forecasts. Mon. Wea. Rev., 136, 3933–3946, https://doi.org/10.1175/2008MWR2431.1
Other calibration:
calCCR()
,
calLM()
,
calMVA()
,
calRPC()
{
## loading seasonal forecasts (CFS) and observations (NCEP) of boreal winter temperature over Iberia
require(climate4R.datasets)
data("CFS_Iberia_tas"); fcst = CFS_Iberia_tas
data("NCEP_Iberia_tas"); obs = NCEP_Iberia_tas
## passing from daily data to seasonal averages
fcst = aggregateGrid(fcst, aggr.y = list(FUN = "mean", na.rm = TRUE))
obs = aggregateGrid(obs, aggr.y = list(FUN = "mean", na.rm = TRUE))
## interpolating forecasts to the observations' resolution
fcst = interpGrid(fcst, new.coordinates = getGrid(obs))
## applying calibration
fcst.cal = calNGR(fcst, obs, crossval = TRUE, type = "NGR", apply.to = "all")
## plotting climatologies
library(visualizeR)
spatialPlot(makeMultiGrid(climatology(obs),
climatology(fcst, by.member = FALSE),
climatology(fcst.cal, by.member = FALSE)),
backdrop.theme = "coastline",
layout = c(3, 1),
names.attr = c("NCEP", "CFS (raw)", "CFS (calibrated)"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.