\begin{Schunk}
\begin{Sinput}
 dat <- genCorrelatedData(100, beta = c(0, 0.1, 0.1, 0), rho = 0.8, means = c(30,20), sds = c(10,10), stde = 3)
 m1 <- lm(y ~ x1, data = dat)
 plotSlopes(m1, plotx="x1", interval="confidence", lwd = 0.4, axes = F)
 axis(1)
 axis(2, pos = 0)
 abline(v = 0)
 box(bty = "L")
\end{Sinput}
\end{Schunk}
