\SweaveOpts{echo=false,eps=false,prefix.string=tmp/figure}
<<echo=FALSE>>=
    options(device= function(...) { .Call('R_GD_nullDevice', PACKAGE = 'grDevices') })

    library(ggplot2)
    library(grid)
    library(plyr)
    library(reshape)
    library(xtable)

    source(paste(Sys.getenv('R_LOCAL_LIB'), 'tables.R', sep='/'))
    results_dir <- Sys.getenv('R_RESULTS')
@
