\begin{Schunk}
\begin{Sinput}
 plotCurves(m2, plotx = "x", ylab = "Linear Probability(y = 1)", legendArgs="none", plotxRange = c(-10, 15))
\end{Sinput}
\end{Schunk}
\begin{Schunk}
\begin{Sinput}
 plotCurves(m2, plotx = "x", ylab = "Linear Probability(y = 1)", legendArgs="none", plotxRange = c(-10, 15))
 m1.pom <- predictOMatic(m1, predVals = list(x = seq(-10, 15)))
 lines(fit ~ x, m1.pom, col = "red", lty = 2, lwd = 3)
 legend("topleft", legend = c("Linear Prediction", "Logistic Prediction"), lty = c(1, 2),col=c("black", "red"), lwd = c(1,3))
\end{Sinput}
\end{Schunk}
