\begin{Schunk}
\begin{Sinput}
 getDF <- function(i, m1 = 0, m2 = 0, s1 = 1, s2 = 1) {
     data.frame(ds = i, x1 = rnorm(100, m1, s1), 
                        x2 = rnorm(100, m2, s2))}
 jumboData <- lapply(1:150, getDF, m1 = 90, s1 = 10, m2 = 33, s2 = 10)
\end{Sinput}
\end{Schunk}
