\begin{Schunk}
\begin{Sinput}
 fn <- file.path(ddir, "toenail.dta")
 toe1n <- read.dta(fn, convert.factors = FALSE)
\end{Sinput}
\end{Schunk}
