\begin{Schunk}
\begin{Sinput}
 logitcoef <- coef(bushlogit5)
 probitcoef <- coef(bushprobit5)
 cbind(logitcoef, probitcoef, ratio=logitcoef/probitcoef)
\end{Sinput}
\begin{Soutput}
              logitcoef  probitcoef     ratio
(Intercept) -5.01178177 -2.53482316 1.9771722
V023010      0.06636326  0.03512340 1.8894317
ideoln       0.37047047  0.20483552 1.8086241
partyidD    -2.53371136 -1.42056620 1.7835926
partyidR     1.29471298  0.69868715 1.8530654
useconn     -0.05463711 -0.06750850 0.8093367
educn       -0.07259333 -0.02097614 3.4607568
\end{Soutput}
\end{Schunk}
