\begin{Schunk}
\begin{Sinput}
 affect$genderf <- factor(affect$gender, levels = c("male", "female"))
\end{Sinput}
\end{Schunk}
