# NOT RUN {
data(May)
re.mod <- getModelRunExpectancy(May)
# Display the Run Expectancy Matrix
states = expand.grid(startCode = 0:7, startOuts = 0:2)
matrix(predict(re.mod, newdata=states), ncol=3)
# }
Run the code above in your browser using DataLab