\begin{Schunk}
\begin{Sinput}
 plot(x,yobs, xlab="Socio Economic Status", ylab="Will Vote for Republican", axes=F, ylim=c(-0.3,1.3), col="gray80")
 axis(1)
 axis(2, at=c(0,0.5,1), labels=c("No","0.5","Yes"))
 rx <- range(x)
 seqx <- seq(rx[1],rx[2], length.out=100)
 pry <- 1/(1+exp(0.8 - 0.079*seqx))
 lines(seqx, pry)
\end{Sinput}
\end{Schunk}
