49 lines
1.0 KiB
Plaintext
49 lines
1.0 KiB
Plaintext
\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}
|