\begin{Schunk}
\begin{Sinput}
 dat <- read.table("data/affect.dat", header = FALSE)
 colnames(dat) <- c("Agency1", "Agency2", "Agency3", 
              "Intrin1", "Intrin2", "Intrin3", 
              "Extrin1", "Extrin2", "Extrin3", 
              "PosAFF1", "PosAFF2", "PosAFF3",
              "NegAFF1", "NegAFF2", "NegAFF3", 
              "Sex", "Ethnic2", "Ethnic3", "Ethnic4")
\end{Sinput}
\end{Schunk}
