\begin{Schunk}
\begin{Sinput}
 m1ps2 <- plotSlopes(m1, plotx="x1", modx="x2", interval = "conf", modxVals = round(range(dat$x2, na.rm=TRUE), 2))
\end{Sinput}
\end{Schunk}
