\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.3043820
2 2 0.3551893
3 3 0.4094850
4 4 0.4660812
5 5 0.5235644
6 6 0.5804299
7 7 0.6352369
\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.3008491
2 2 0.3564734
3 3 0.4120976
4 4 0.4677219
5 5 0.5233461
6 6 0.5789704
7 7 0.6345946
\end{Soutput}
\end{Schunk}
