\begin{Schunk}
\begin{Sinput}
 xt3 <- xtable(as.table(sum.hsb[[2]][["ethnicity"]]$table), 
                caption = "The Ethnicity Summary", label = "tab:ethnicity",
                digits = 2)
 print(xt3, 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:40 2018
\begin{table}[H]
\centering
\caption{The Ethnicity Summary} 
\label{tab:ethnicity}
\begin{tabular}{rr}
  \hline
 & x \\ 
  \hline
White & 5211 \\ 
  Non-white & 1974 \\ 
  nobs & 7185 \\ 
  nmiss &   0 \\ 
   \hline
\end{tabular}
\end{table}\end{Schunk}
