data(prcpFit)
bmaModelParameters(prcpFit, date = "20030113")
data(prcpGrid)
prcpGridData <- ensembleData(forecasts = prcpGrid[,1:9],
latitude = prcpGrid[,"latitude"],
longitude = prcpGrid[,"longitude"])
# probability of precipitation
1 - cdfBMA( prcpFit, prcpGridData, value = 0)
# probability of precipitation above 0.25 in
1 - cdfBMA( prcpFit, prcpGridData, date = "20030113", value = 25)
Run the code above in your browser using DataLab