\begin{Schunk}
\begin{Sinput}
 ## The logistic model
 (m1p1 <- predictOMatic(m1, predVals = "margins", type = "response"))
\end{Sinput}
\begin{Soutput}
$x
  x       fit
1 1 0.7773437
2 0 0.1188525
\end{Soutput}
\begin{Sinput}
 ## The linear model
 (m2p1 <- predictOMatic(m2, predVals = "margins", type = "response"))
\end{Sinput}
\begin{Soutput}
$x
  x       fit
1 1 0.7773438
2 0 0.1188525
\end{Soutput}
\end{Schunk}
