\begin{Schunk}
\begin{Sinput}
 datsub <- dat[ , c("names", "of", "variables", "to", "be", "imputed", "or", "used", "in", "imputation")]