\begin{Schunk}
\begin{Sinput}
 ## If you have the ortann.rds file already, use it.
 ## Otherwise download
 if (file.exists("ortann.rds")){
      print("Using saved file ortann.rds")
      dat <- readRDS("ortann.rds")
  } else {
      print("Wait. Downloading ortann.csv file")
  dat <- read.table(url("http://pj.freefaculty.org/guides/stat/DataSets/OregonTemps/ortann.csv"), header=T, sep=",")
      saveRDS(dat, file = "ortann.rds")
  }
\end{Sinput}
\begin{Soutput}
[1] "Using saved file ortann.rds"
\end{Soutput}
\begin{Sinput}
 str(dat)
\end{Sinput}
\begin{Soutput}
'data.frame':	92 obs. of  5 variables:
 $ station  : Factor w/ 92 levels "ANT","ARL","ASH",..: 1 2 3 4 7 8 5 9 6 10 ...
 $ latitude : num  44.9 45.7 42.2 46.1 44.8 ...
 $ longitude: num  -121 -120 -123 -124 -118 ...
 $ elevation: int  846 96 543 2 1027 1050 24 1097 999 18 ...
 $ tann     : num  9.6 12.5 11.1 10.3 7.6 8.4 10.8 7.7 9.5 11.2 ...
\end{Soutput}
\end{Schunk}
