\begin{Schunk}
\begin{Sinput}
 library(foreign)
 ddir <- "data"
 fp <- file.path(ddir, "04245-0001-Data.dta")
 anes1 <- read.dta(fp)
 anes1.orig <- anes1
\end{Sinput}
\end{Schunk}
