# -*- mode: org -*-
#+OPTIONS:  LaTeX:t

* Sweave and org-mode
  If you're reading a PDF version of this document, you should also
  look at [[file:testing.Rorg][testing.Rorg]] (the source file) and [[file:testing.org][testing.org]] (the output
  of the Sweave process).

  Keep in mind that one of the advantages of a block-based approach is
  using \texttt{C-'} to edit code in its native mode.

** Use the Sweave package for latex formatting
   Org allows us to issue commands to be included in \{LaTeX} export.
#+LATEX_HEADER:  \usepackage{Sweave}

** R blocks
   The first argument to an R block when using Sweave is the label for
   that block.

   Not all R blocks are printed.  Sweave options allow the printing of
   the evaluated code, the output of the code, both, or neither.

*** R code that is not printed

*** R code that is printed
#+BEGIN_LaTeX
\begin{Schunk}
\begin{Sinput}
> c <- 4
\end{Sinput}
\end{Schunk}
#+END_LaTeX
   
   We can use block labels to embed blocks by reference (even if they
   weren't printed before).
*** R code that references other blocks
#+BEGIN_LaTeX
\begin{Schunk}
\begin{Sinput}
> a <- 3
> b <- 6
> c <- 4
> a + b + c
\end{Sinput}
\begin{Soutput}
[1] 13
\end{Soutput}
\end{Schunk}
#+END_LaTeX

** Inline references to R data
   We can evaluate R code inline.
*** Used in text
    The value of =a= is 3.

*** Used in a table
    | a     | b     | c     | TOTAL         |
    |-------+-------+-------+---------------|
    | 3 | 6 | 4 | 13 |

** Single-line R commands
   If we want a line of R code to be evaluated but not printed,
   there's a convenient shorthand.  This only works for single lines
   of R code, but you can have more than one in a row.
#+R:  library(lattice)
#+R:  data(cars)

** Graphics
   We use values defined elsewhere in the buffer to produce this
   graph.  The new CAPTION and LABEL arguments work just fine.

#+CAPTION:  speed by distance
#+LABEL:  fig:speed_by_distance
#+BEGIN_LaTeX
\begin{Schunk}
\begin{Sinput}
> require(lattice)
> print(xyplot(speed ~ dist, cars, panel = function(x, y, ...) {
+     panel.xyplot(x, y, ...)
+     panel.abline(h = a)
+     panel.abline(v = b)
+ }))
\end{Sinput}
\end{Schunk}
#+END_LaTeX
[[./testing-004.pdf]]