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")
Run the code above in your browser using DataLab