\begin{Schunk}
\begin{Sinput}
 startswd <- grep("^g", dat$wn, value = TRUE)
 head(startswd, 10)
\end{Sinput}
\begin{Soutput}
 [1] "g1"  "g5"  "g10" "g14" "g17" "g19" "g22" "g24" "g29" "g31"
\end{Soutput}
\end{Schunk}
