\begin{Schunk}
\begin{Sinput}
 ps30 <- plotSlopes(m1, plotx="x1", modx="x2", modxVals="std.dev.", llwd=4)
\end{Sinput}
\end{Schunk}
