\begin{Schunk}
\begin{Sinput}
 dat <- dat[ , c("gradrate", "instcst", "stdtofac", "aveact", "instate", "outstate", "schtype")]
\end{Sinput}
\end{Schunk}
