\begin{Schunk}
\begin{Sinput}
 Prestige$educcenter <- Prestige$education - mean(Prestige$education, na.rm=TRUE)
 m1 <- lm(prestige ~ education * type, data = Prestige)
 m2 <- lm(prestige ~ educcenter * type, data = Prestige)
 outreg(list("Not Centered" = m1, "Centered Wrongly" = m2), tight = FALSE)
\end{Sinput}
\end{Schunk}
