\begin{Schunk}
\begin{Sinput}
 getSampleMean <- function(rep, N, M, SD){ 
      ## rep is an unused parameter, a place-holder
      x <- rnorm(N, mean = M, sd = SD)
      mean(x)
  }
\end{Sinput}
\end{Schunk}
