\begin{Schunk}
\begin{Sinput}
 plot(x,y2, main="", xlab="Indep. Var.", ylab="Dep. Var.",ylim=1.2*range(y2))
 abline(2,3,lty=4, col="red")
 abline(mod2)
 legend("bottomright",legend=c("True Relationship","Sample Estimate"), lty=c(4,1),col=c("red","black"))
\end{Sinput}
\end{Schunk}
