\begin{Schunk}
\begin{Sinput}
 ## Create data with x1 and x2 correlated at 0.10
 rm(dat)
 dat2 <- genCorrelatedData(rho=0.9, stde=7)
\end{Sinput}
\end{Schunk}
