\begin{Schunk}
\begin{Sinput}
 ddir <- "../../data"
 fn <- "affect-2.csv"
 dat <- read.csv(file.path(ddir, fn))
\end{Sinput}
\end{Schunk}
