\begin{Schunk}
\begin{Sinput}
 plotSlopes(incedmod1, plotx = "education", interval = "prediction", col = "red")
\end{Sinput}
\end{Schunk}
