inst/example/simpleRR.Rnw

   1 \documentclass{article}
   2
   3 \usepackage[margin=1in]{geometry}
   4
   5 \setlength{\parindent}{0in}
   6
   7 \title{A Simple Sweave Document using Caching}
   8 \author{Roger D. Peng}
   9
  10 \SweaveOpts{eps=false}
  11
  12 \begin{document}
  13
  14 \maketitle
  15
  16 First we load the packages which contain the data and functions that
  17 we will need later
  18 <<LoadPackages>>=
  19 library(datasets)
  20 library(utils)
  21 @
  22
  23 We fit a linear model to the \texttt{airquality} dataset.  In this
  24 code chunk we will turn caching on so that we cache the
  25 \texttt{airquality} data frame and the \texttt{fit} object.
  26 <<FitLinearModel,cache=true>>=
  27 data(airquality)
  28 fit <- lm(Ozone ~ Temp + Wind + Solar.R, data = airquality)
  29 @
  30
  31 We can summarize the regression coefficients and their uncertainties
  32 in a table
  33 <<CoefficientTable,results=tex>>=
  34 library(xtable)
  35 print(xtable(fit))
  36 @
  37
  38 We can also plot some model diagnostics.
  39 \begin{figure}
  40   \centering
  41 <<LinearModelDiagnosticPlots,fig=true>>=
  42 oldpar <- par(no.readonly = TRUE)
  43 par(mfcol = c(2, 2))
  44 plot(fit, ask = FALSE)
  45 par(oldpar)
  46 @
  47 \caption{Linear model diagnostic plots}
  48 \end{figure}
  49
  50
  51 \end{document}