\begin{Schunk}
\begin{Sinput}
 startswdl <- grepl("^g", dat$wn)
 head(startswdl, 10)
\end{Sinput}
\begin{Soutput}
 [1]  TRUE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE
\end{Soutput}
\end{Schunk}
