\begin{Schunk}
\begin{Sinput}
 str(affect)
\end{Sinput}
\begin{Soutput}
'data.frame':	380 obs. of  20 variables:
 $ Agency1  : num  3.5 2.5 1.83 2.77 3.17 ...
 $ Agency2  : num  4 3.17 2 3.06 3.33 ...
 $ Agency3  : num  4 3 1.5 2.36 2.83 ...
 $ Intrin1  : num  4 3.21 3 3.13 3.5 ...
 $ Intrin2  : num  4 2 3 4 4 2.5 3.5 3 2 3.5 ...
 $ Intrin3  : num  4 3 2 3 4 3 4 2 3 3 ...
 $ Extrin1  : num  1 1.83 1 1.08 1.83 ...
 $ Extrin2  : num  1 2.67 1 1.17 2 ...
 $ Extrin3  : num  1.5 1.83 1 1 1.83 ...
 $ PosAFF1  : num  4 3 3.02 3 3.78 ...
 $ PosAFF2  : num  4 3.5 2.5 2.5 3.5 3 2.5 2 3 3 ...
 $ PosAFF3  : num  4 2.5 3 3 3 3 3 2.5 3.5 3 ...
 $ NegAFF1  : num  1 1.5 1 2.5 2.5 2 1 1 2 2.5 ...
 $ NegAFF2  : num  1 1.69 1 2.5 2 ...
 $ NegAFF3  : num  1 1.5 1 1.5 3 ...
 $ Sex      : int  1 1 1 1 1 1 1 1 1 1 ...
 $ gender   : chr  "male" "male" "male" "male" ...
 $ ethnicity: chr  "Hispanic" "White" "White" "White" ...
 $ race     : chr  "Nonwhite" "White" "White" "White" ...
 $ genderf  : Factor w/ 2 levels "male","female": 1 1 1 1 1 1 1 1 1 1 ...
\end{Soutput}
\end{Schunk}
