\begin{Schunk}
\begin{Sinput}
 plot(x=seq(-2,10, length=20), y=seq(-1, 10, length=20), type="n", xlab="x", ylab="y")
 for(i in 1:100){
  abline(mregs[[i]], lty=i, col=i)
  }
\end{Sinput}
\end{Schunk}
