\begin{Schunk}
\begin{Sinput}
 fdnew <- fd[ , -c(2)]
 head(fdnew)
\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}
