\begin{Schunk}
\begin{Sinput}
 fd13 <- fd[ , c("v3", "v5")] 
 str(fd13)
\end{Sinput}
\begin{Soutput}
'data.frame':	5 obs. of  2 variables:
 $ v3: num  0.661 -2.053 -1.499 1.471 1.459
 $ v5: chr  "A" "B" "C" "D" ...
\end{Soutput}
\begin{Sinput}
 head(fd13)
\end{Sinput}
\begin{Soutput}
               v3 v5
Bill    0.6607697  A
Joe    -2.0529830  B
Frosty -1.4992061  C
Mickey  1.4712331  D
Henry   1.4591385  E
\end{Soutput}
\end{Schunk}
