\begin{Schunk}
\begin{Sinput}
 options("width" = 70)
 head(dat)
\end{Sinput}
\begin{Soutput}
  Agency1 Agency2 Agency3 Intrin1 Intrin2 Intrin3 Extrin1 Extrin2
1  3.5000  4.0000  4.0000  4.0000     4.0       4  1.0000  1.0000
2  2.5000  3.1667  3.0000  3.2123     2.0       3  1.8333  2.6667
3  1.8333  2.0000  1.5000  3.0000     3.0       2  1.0000  1.0000
4  2.7714  3.0602  2.3639  3.1337     4.0       3  1.0774  1.1667
5  3.1667  3.3333  2.8333  3.5000     4.0       4  1.8333  2.0000
6  2.3333  2.8333  2.3333  3.0000     2.5       3  3.0588  2.4125
  Extrin3 PosAFF1 PosAFF2 PosAFF3 NegAFF1 NegAFF2 NegAFF3 Sex Ethnic2
1  1.5000  4.0000     4.0     4.0     1.0  1.0000     1.0   1       0
2  1.8333  3.0000     3.5     2.5     1.5  1.6858     1.5   1       0
3  1.0000  3.0184     2.5     3.0     1.0  1.0000     1.0   1       0
4  1.0000  3.0000     2.5     3.0     2.5  2.5000     1.5   1       0
5  1.8333  3.7804     3.5     3.0     2.5  2.0000     3.0   1       0
6  2.6667  4.0000     3.0     3.0     2.0  1.5000     2.0   1       0
  Ethnic3 Ethnic4
1       1       0
2       0       0
3       0       0
4       0       0
5       0       0
6       0       0
\end{Soutput}
\begin{Sinput}
 options("width" = 80)
\end{Sinput}
\end{Schunk}
