\begin{Schunk}
\begin{Sinput}
 library(car)
 leveneTest(reg.mod.2)
\end{Sinput}
\begin{Soutput}
Levene's Test for Homogeneity of Variance (center = median)
       Df F value Pr(>F)
group   1  2.3963 0.1225
      378               
\end{Soutput}
\end{Schunk}
