\begin{Schunk}
\begin{Sinput}
 logitcoef <- coef(bushideolrm5)
 probitcoef <- coef(bushideoProbit5)
 cbind(logitcoef, probitcoef, ratio=logitcoef/probitcoef)
\end{Sinput}
\begin{Soutput}
              logitcoef  probitcoef    ratio
(Intercept) -4.81364708 -2.45905355 1.957520
V023010      0.06798295  0.03615298 1.880424
V023022      0.35425202  0.19872397 1.782634
repub        1.16723481  0.62634619 1.863562
democ       -2.69200372 -1.50316795 1.790887
V023027     -0.04229175 -0.01688572 2.504587
V023131     -0.10563718 -0.08103940 1.303529
\end{Soutput}
\end{Schunk}
