\begin{Schunk}
\begin{Sinput}
 m4.desc2 <- descriptiveTable(m4, stats = c("mean", "var", "skewness"), probs = c(0.0, 0.2, 0.8, 1))
\end{Sinput}
\end{Schunk}
