\begin{Schunk}
\begin{Sinput}
 ## ddir <- "../data"
 ## if(!file.exists(ddir)) dir.create(ddir)
 ## library(foreign)
 ## write.dta(gavote, file = file.path(ddir, "gavote.dta"))
 ## write.csv(gavote, file = file.path(ddir, "gavote.csv"), row.names = FALSE)
 ## saveRDS(gavote, file = file.path(ddir, "gavote.rds"))
\end{Sinput}
\end{Schunk}
