inst/misc/test.Rnw

   1 \documentclass{article}
   2 \usepackage{Sweave}
   3 \title{Test Sweave Document}
   4 \author{Roger Peng}
   5 \begin{document}
   6 \maketitle
   7 Hello, this is a test Sweave document using cacheSweave.
   8 %% Default has 'cache = FALSE'
   9 <<setup>>=
  10 setCacheDir("testcache")
  11 @
  12 <<first,cache=TRUE>>=
  13 Sys.sleep(3)
  14 a <- rnorm(100)
  15 b <- a * .4 * rnorm(100, sd = 0.8)
  16 fit <- lm(b ~ a)
  17 @
  18 <<second>>=
  19 sumf <- summary(fit)
  20 print(sumf)
  21 @
  22 \end{document}