\begin{Schunk}
\begin{Sinput}
 fn <- "affect.csv"
 affect <- read.table(file.path(ddir, fn), header = TRUE, sep = ",", stringsAsFactors = FALSE)
\end{Sinput}
\end{Schunk}
