\begin{Schunk}
\begin{Sinput}
  library(rockchalk)
  mydf <- data.frame(x = x)
  summarizeNumerics(mydf)
\end{Sinput}
\begin{Soutput}
                  x
0%       -2143.7651
25%         -1.0349
50%         -0.0002
75%          0.9759
100%      2038.5247
mean         0.2970
sd          56.7890
var       3224.9875
skewness     2.4781
kurtosis   951.5539
NA's         0.0000
N         5000.0000
\end{Soutput}
\end{Schunk}
