\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 sumdat2 <- summarize(dat)
 sumdat2$numerics
\end{Sinput}
\begin{Soutput}
        ARM   GRIP RATINGS     SIMS
0%    19.00  29.00  21.600  -4.1700
25%   64.50  94.00  34.800  -0.9650
50%   81.50 111.00  41.300   0.1600
75%   94.00 124.50  47.700   1.0700
100% 132.00 189.00  57.200   5.1700
mean  78.75 110.20  41.010   0.2018
sd    21.11  23.63   8.522   1.6790
var  445.60 558.40  72.620   2.8190
NA's   0.00   0.00   0.000   0.0000
N    147.00 147.00 147.000 147.0000
\end{Soutput}
\end{Schunk}
