\begin{Schunk}
\begin{Sinput}
 z <- outer(x1seq, x2seq, function(a,b) predict(m1, newdata=data.frame(x1=a,x2=b)))
\end{Sinput}
\end{Schunk}
