\begin{Schunk}
\begin{Sinput}
 dat2a <- genCorrelatedData(N=400, rho=.1, stde=300, means =c(50,0), beta=c(2, -2.4, 0.1, 0.44))
 m2a <- lm(y ~ x1*x2, data=dat2a)
\end{Sinput}
\end{Schunk}
