\begin{Schunk}
\begin{Sinput}
 odir <- "output"
 if(!file.exists(odir)) dir.create(odir)
 wd <- "workingdata"
 fn <- "hsb2.rds"
 hsb <- readRDS(file.path(wd, fn))
\end{Sinput}
\end{Schunk}
