\begin{Schunk}
\begin{Sinput}
 library(scatterplot3d)
 s3d <- scatterplot3d(dat, type="p", color="blue", angle=55, pch=16, main="", xlab="x1", ylab="x2", zlab="y")
\end{Sinput}
\end{Schunk}
