data(prcpGrid)
prcpGridData <- ensembleData(forecasts = prcpGrid[,1:9],
latitude = prcpGrid[,"latitude"],
longitude = prcpGrid[,"longitude"])
data(prcpFit)
# median forecast for Jan 13, 2003 at the grid points
quantileForecastBMA( prcpFit, prcpGridData, date = "20030113")
Run the code above in your browser using DataLab