\begin{Schunk}
\begin{Sinput}
 mydf$subjects <- c("Pat","Chris","Kris","Stacey","Leslie","Jaime","Terry","Mickey")
\end{Sinput}
\end{Schunk}
