\begin{Schunk}
\begin{Sinput}
 head(dat)
\end{Sinput}
\begin{Soutput}
  Agency1 Agency2 Agency3 Intrin1 Intrin2 Intrin3 Extrin1 Extrin2 Extrin3 PosAFF1 PosAFF2 PosAFF3
1  3.5000  4.0000  4.0000  4.0000     4.0       4  1.0000  1.0000  1.5000  4.0000     4.0     4.0
2  2.5000  3.1667  3.0000  3.2123     2.0       3  1.8333  2.6667  1.8333  3.0000     3.5     2.5
3  1.8333  2.0000  1.5000  3.0000     3.0       2  1.0000  1.0000  1.0000  3.0184     2.5     3.0
4  2.7714  3.0602  2.3639  3.1337     4.0       3  1.0774  1.1667  1.0000  3.0000     2.5     3.0
5  3.1667  3.3333  2.8333  3.5000     4.0       4  1.8333  2.0000  1.8333  3.7804     3.5     3.0
6  2.3333  2.8333  2.3333  3.0000     2.5       3  3.0588  2.4125  2.6667  4.0000     3.0     3.0
  NegAFF1 NegAFF2 NegAFF3 Sex gender ethnicity     race
1     1.0  1.0000     1.0   1   male  Hispanic Nonwhite
2     1.5  1.6858     1.5   1   male     White    White
3     1.0  1.0000     1.0   1   male     White    White
4     2.5  2.5000     1.5   1   male     White    White
5     2.5  2.0000     3.0   1   male     White    White
6     2.0  1.5000     2.0   1   male     White    White
\end{Soutput}
\end{Schunk}
