org-mode/existing_tools/RweaveOrg/testing.Rorg.org

74 lines
2.1 KiB
Org Mode

# -*- 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
#+BEGIN_R: hidden_block, echo=FALSE, results=HIDE
a <- 3
b <- 6
#+END_R
*** R code that is printed
#+BEGIN_R: visible_block
c <- 4
#+END_R
We can use block labels to embed blocks by reference (even if they
weren't printed before).
*** R code that references other blocks
#+BEGIN_R: combined_block
#+R_CODEREF: hidden_block
#+R_CODEREF: visible_block
a + b +c
#+END_R
** Inline references to R data
We can evaluate R code inline.
*** Used in text
The value of =a= is \R{a}.
*** Used in a table
| a | b | c | TOTAL |
|-------+-------+-------+---------------|
| \R{a} | \R{b} | \R{c} | \R{a + b + c} |
** 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_R fig=TRUE, eps=FALSE, pdf=TRUE
print(xyplot(speed ~ dist, cars,
panel = function (x, y, ...) {
panel.xyplot(x, y, ...)
panel.abline(h=a)
panel.abline(v=b)
}))
#+END_R