\begin{Schunk}
\begin{Sinput}
 colMresults2 <- sapply(jumboData, colMeans)
 dim(colMresults2)
\end{Sinput}
\begin{Soutput}
[1]   3 150
\end{Soutput}
\begin{Sinput}
 ## That's 150 columns with 3 rows each. The first 3 columns
 colMresults2[ , 1:3]
\end{Sinput}
\begin{Soutput}
       [,1]     [,2]     [,3]
ds  1.00000  2.00000  3.00000
x1 90.91261 89.98699 87.38849
x2 30.94204 34.61032 33.30044
\end{Soutput}
\end{Schunk}
