\documentclass{article} \SweaveOpts{engine=R,eps=FALSE,pdf=TRUE,strip.white=true,keep.source=TRUE} \usepackage{Sweave} \begin{document} <<preliminaries, echo=FALSE, results=hide>>= options(width=70, useFancyQuotes = FALSE, prompt="R> ", continue="+ ") @ \subsection*{Introduction} We generate 3D gaussian data, We generate 3D Gaussian data, <<ex1-U3>>= set.seed(1) n <- 100 x <- rnorm(n); y <- 2*x + rnorm(n)/2 U3 <- cbind(x, y, z = -3*x + y + rnorm(n)/4) @ look at its structure <<str>>= str(U3) # its structure ((comment kept)) @ and load package \texttt{lattice} <<req-lattice>>= if(!require("lattice", quietly = TRUE)) q("no") @ to visualize it by a simple scatter plot matrix \begin{figure}[h!] \centering <<splom-def, eval=false>>= splom(U3, xlab ="", cex = 0.4) <<splom, echo=FALSE, fig=TRUE, height=5>>= print( <<splom-def>> ) @ \caption{\Sexpr{n} vectors of random variates ... ...} \label{fig:AC_Joe} \end{figure} \subsection*{Session Information} <<sessionInfo, results=tex>>= toLatex(sessionInfo()) @ \end{document}