\begin{Schunk}
\begin{Sinput}
 ## The logistic model
 predictOMatic(m1, predVals = list(x=1:7), type = "response")
\end{Sinput}
\begin{Soutput}
  x       fit
1 1 0.3737184
2 2 0.4958384
3 3 0.6184570
4 4 0.7276346
5 5 0.8149205
6 6 0.8788895
7 7 0.9228423
\end{Soutput}
\begin{Sinput}
 ## The linear model
 predictOMatic(m2, predVals = list(x=1:7), type = "response")
\end{Sinput}
\begin{Soutput}
  x       fit
1 1 0.4118256
2 2 0.5047289
3 3 0.5976322
4 4 0.6905355
5 5 0.7834388
6 6 0.8763420
7 7 0.9692453
\end{Soutput}
\end{Schunk}
