\begin{Schunk}
\begin{Sinput}
 ## Other settings I like
 options(device = pdf)
 options(useFancyQuotes = FALSE) 
 op <- par() 
 pjmar <- c(5.1, 5.1, 1.5, 2.1) 
 options(SweaveHooks=list(fig=function() par(mar=pjmar, ps=12)))
 pdf.options(onefile=F,family="Times",pointsize=12)
\end{Sinput}
\end{Schunk}
