\begin{Schunk}
\begin{Sinput}
> opts.orig <- options()
> options(width=100, prompt = " ", continue = "  ")
 options(useFancyQuotes = FALSE)
 set.seed(12345)
 par.orig <- par(no.readonly = TRUE) 
 pjmar <- c(4.1, 4.1, 1.5, 2.1)
 options(SweaveHooks=list(fig=function() par(mar=pjmar, ps=12, xpd=F)))
 pdf.options(onefile=F,family="Times",pointsize=12)
 if(!file.exists("theme")) file.symlink("../../../../template/theme", "theme")
\end{Sinput}
\end{Schunk}
