\begin{Schunk}
\begin{Sinput}
 m4.desc.tab2 <- xtable(m4.desc2, caption="Testing descriptiveTable", label = "tab:makedesc100")
 print(m4.desc.tab2, include.rownames = FALSE,
        table.placement="H", caption.placement="top")
\end{Sinput}
% latex table generated in R 3.5.1 by xtable 1.8-2 package
% Tue Sep 11 14:12:41 2018
\begin{table}[H]
\centering
\caption{Testing descriptiveTable} 
\label{tab:makedesc100}
\begin{tabular}{llll}
  \hline
variable & mean & var & skewness \\ 
  \hline
y & 6.1 &  29 & -0.029 \\ 
  x1 & 9.9 & 8.7 & -0.11 \\ 
  x2 &  10 & 9.2 & 0.027 \\ 
  x3 &  10 & 8.5 & -0.06 \\ 
  xcat1 &  &  &  \\ 
  b & 0.27 &  &  \\ 
  a & 0.26 &  &  \\ 
  c & 0.25 &  &  \\ 
  d & 0.23 &  &  \\ 
  xcat2 &  &  &  \\ 
  Male2 & 0.53 &  &  \\ 
  Male1 & 0.47 &  &  \\ 
   \hline
\end{tabular}
\end{table}\end{Schunk}
