\begin{Schunk}
\begin{Sinput}
 ## Returns a list of one row data frames
 set.seed(123)
 nReps <- 1000
 result.list <- lapply(1:nReps, runOneSim, N = "30:30", M = "98:103", SD = "15:15")
 ## Smash those down into one data frame with 1 row
 ## per replication
 result.df <- do.call("rbind", result.list)
 mean(result.df$reject)
\end{Sinput}
\begin{Soutput}
[1] 0.248
\end{Soutput}
\end{Schunk}
