\begin{Schunk}
\begin{Sinput}
 pdf(file = "myfavorite1.pdf", onefile = FALSE, family = "Times", paper = "special", height = 4, width = 6)
 #hist(x) or whatever
 dev.off()
\end{Sinput}
\end{Schunk}
