\begin{Schunk}
\begin{Sinput}
 m2app <- plotPlane(m2a, plotx1="x1", plotx2="x2", npp = 7, llwd = .5, plwd = 0.7, pcex = 0.75, pcol = gray(.6))
 addLines(from = m2aps, to = m2app)
\end{Sinput}
\begin{Soutput}
NULL
\end{Soutput}
\end{Schunk}
