\begin{Schunk}
\begin{Sinput}
 dat1 <- read.table("data/oregon.csv", sep = ",", header = TRUE, stringsAsFactors = FALSE)
 head(dat1)
\end{Sinput}
\begin{Soutput}
  station latitude longitude elevation tann
1     ANT   44.917  -120.717       846  9.6
2     ARL   45.717  -120.200        96 12.5
3     ASH   42.217  -122.717       543 11.1
4     AST   46.150  -123.883         2 10.3
5     BKA   44.833  -117.817      1027  7.6
6     BKK   44.783  -117.833      1050  8.4
\end{Soutput}
\end{Schunk}
