\begin{Schunk}
\begin{Sinput}
 m2centered <- meanCenter(m2)
 summary(m2centered)
 fit1 <- plotPlane(m2centered, plotx1="x1c", plotx2="x2c", ticktype="detailed")
\end{Sinput}
\end{Schunk}
