\begin{Schunk}
\begin{Sinput}
 SAVEME <- FALSE
 if (SAVEME == TRUE) pdf(file="myfile1.pdf")
 ## your graph code here
 if (SAVEME == TRUE) dev.off()
\end{Sinput}
\end{Schunk}
