\begin{Schunk}
\begin{Sinput}
 sum.hsb.2 <- sum.hsb[[1]][c("mean", "sd")]
 library(xtable)
 xt <- xtable(sum.hsb.2, caption = "Means and Standard Deviations",
               label = "tab:hsbmean")
 print(xt, file = file.path(od, "hsbsumry20.tex"), 
        floating=FALSE)
 xt
\end{Sinput}
% latex table generated in R 3.5.1 by xtable 1.8-2 package
% Fri Aug 24 18:34:50 2018
\begin{table}[ht]
\centering
\begin{tabular}{rrr}
  \hline
 & mean & sd \\ 
  \hline
ses & 0.00 & 0.78 \\ 
  mathach & 12.75 & 6.88 \\ 
  size & 1056.86 & 604.17 \\ 
  pracad & 0.53 & 0.25 \\ 
  disclim & -0.13 & 0.94 \\ 
  himinty & 0.28 & 0.45 \\ 
  schoolid & 5277.90 & 2499.58 \\ 
  mean & 12.75 & 3.01 \\ 
  sd & 6.20 & 0.86 \\ 
  sdalt & 6.26 & 0.00 \\ 
  junk & 47.32 & 48.90 \\ 
  sdalt2 & 48.39 & 0.00 \\ 
  num & 48.02 & 10.82 \\ 
  se & 0.92 & 0.20 \\ 
  sealt & 0.92 & 0.13 \\ 
  sealt2 & 1.03 & 0.14 \\ 
  t2 & 14.66 & 26.42 \\ 
  t2alt & 8.54 & 11.06 \\ 
  pickone & 0.02 & 0.15 \\ 
  mmses & 0.00 & 0.41 \\ 
  mnses & 0.00 & 0.41 \\ 
  xb & 12.69 & 2.42 \\ 
  resid & 0.06 & 6.46 \\ 
   \hline
\end{tabular}
\caption{Means and Standard Deviations} 
\label{tab:hsbmean}
\end{table}\end{Schunk}
