\begin{Schunk}
\begin{Sinput}
 set.seed(234)
 fd <- data.frame(v3 = rnorm(5), 
                   v4 = rnorm(5), 
                   v5 = LETTERS[1:5], stringsAsFactors = FALSE)
\end{Sinput}
\end{Schunk}
