\begin{Schunk}
\begin{Sinput}
 incedvcov <- vcov(incedmod1)
 incedvcov
\end{Sinput}
\begin{Soutput}
            (Intercept) education
(Intercept)   1979759.4 -173290.4
education     -173290.4   16138.0
\end{Soutput}
\end{Schunk}
