\begin{Schunk}
\begin{Sinput}
 sum.hsb.2 <- sum.hsb[[1]][c("mean", "sd")]
 library(xtable)
 xt <- xtable(sum.hsb.2)
\end{Sinput}
\end{Schunk}
