\begin{Schunk}
\begin{Sinput}
 GenericFigure <- function(ID, size1, size2){
   plot(0:10, 0:10, type="n", xlab="X", ylab="Y")
   text(5,5, ID, col="red", cex=size1)
   box("plot", col="red")
   mtext("Figure",
         SOUTH<-1, line=3, adj=1.0, cex=size2,   col="blue")
 }
\end{Sinput}
\end{Schunk}
