\begin{Schunk}
\begin{Sinput}
 getEstimates <- function(rep, N, M, SD) {
      x <- rnorm(N, mean = M, sd = SD)
      x <- ifelse(x > 100, 100, x)
      c(rep = rep, mean = mean(x), sd = sd(x), sterr = sd(x)/sqrt(N))
  }
 set.seed(123)
\end{Sinput}
\end{Schunk}
