\begin{Schunk}
\begin{Sinput}
 dat2b <- genCorrelatedData(N=400, rho=.1, stde=300, beta=c(2, 0, 0.3, 0.05), means = c(50,0), sds = c(10, 40))
 m2b <- lm(y ~ x1*x2, data=dat2b)
 m2bps <- plotSlopes(m2b, plotx="x1", modx="x2")
 plot(testSlopes(m2bps))
\end{Sinput}
\begin{Soutput}
Values of x2 OUTSIDE this interval:
        lo         hi 
-544.05643   55.15601 
cause the slope of (b1 + b2*x2)x1 to be statistically significant
\end{Soutput}
\end{Schunk}
