\begin{Schunk}
\begin{Sinput}
 fn <- file.path(ddir, "oregon.csv")
 ore1 <- read.table(fn, sep = ",", header = TRUE)
\end{Sinput}
\end{Schunk}
