\begin{Schunk}
\begin{Sinput}
 mod3 <- lm(EX  ~  ECAB + poly(MET,2)+YOUNG, data=dat)
 plotPlane(mod3, plotx1="MET", plotx2="ECAB")
\end{Sinput}
\end{Schunk}
