if (FALSE) # R check
data(srft)
data(srftGrid)
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,
forecastHour = 48,
initializationTime = "00")
srftFit <- ensembleBMAnormal( srftData, date = "2004013100",
trainingDays = 25)
srftGridData <- ensembleData( forecasts = srftGrid[ ,labels],
latitude = srftGrid$lat,
longitude = srftGrid$lon,
forecastHour = 48,
initializationTime = "00")
CRPS( srtGridData, srftFit)
Run the code above in your browser using DataLab