\begin{Schunk}
\begin{Sinput}
 mod2 <- lm(y ~ x1*x2, data = dat) 
 ps5 <- plotSlopes(mod2, plotx = "x1", modx = "x2")
\end{Sinput}
\end{Schunk}
