\begin{Schunk}
\begin{Sinput}
 set.seed(234234)
 N <- 500
 dat2 <- data.frame(x1 = rnorm(N, m = 4, sd = 5),
                     x2 = rpois(N, lambda = 4),
                     x3 = rgamma(N, shape = 0.4, scale = 10), 
                     x4 = rbinom(N, size = 8, prob = 0.5))
 rockchalk::summarize(dat2)
\end{Sinput}
\begin{Soutput}
Numeric variables
             x1        x2        x3        x4   
min        -11.064     0         0         0    
med          3.983     4         1.428     4    
max         22.772    10        47.616     8    
mean         4.101     4.052     3.903     3.968
sd           5.163     1.999     6.273     1.453
skewness     0.203     0.450     2.954    -0.074
kurtosis     0.346    -0.084    10.911    -0.410
nobs       500       500       500       500    
nmissing     0         0         0         0    
\end{Soutput}
\end{Schunk}
