\begin{Schunk}
\begin{Sinput}
 plot(as.numeric(dat$owngun) ~ realinc,data=dat, type="n", xlab="Income (Inflation Adjusted)", ylab="Gun Ownership")
 points(dat$owngun ~ realinc, data=dat)
\end{Sinput}
\end{Schunk}
