\begin{Schunk}
\begin{Sinput}
 library(scatterplot3d)
 x <- rnorm(80); y <- rpois(80,l=7); z <- 3 + 1.1*x + 0.4*y + 15*rnorm(80)
 s3d <- scatterplot3d(x,y,z)
\end{Sinput}
\end{Schunk}
