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,
forecastHour = 48,
initializationTime = "00")
if (FALSE) {
# this takes time
# the PIT should be evaluated over relatively long periods
srftFITall <- ensembleBMA( srftData, model = "normal", trainingDays = 25)
srftPIT <- pitHist( srftFITall, srftData)
}
Run the code above in your browser using DataLab