\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 nd <- newdata(reg.mod.1, predVals = c("agency"), n = 5)
 nd
\end{Sinput}
\begin{Soutput}
    agency
1 1.000000
2 2.175525
3 2.499983
4 2.832975
5 4.000000
\end{Soutput}
\begin{Sinput}
 ## n = 5 is 5 evenly spaced quartile values
\end{Sinput}
\end{Schunk}
