\begin{Schunk}
\begin{Sinput}
  fn1 <- "practiceData.txt"
  addr <- "http://pj.freefaculty.org/guides/Rcourse/data-1/examples"
  download.file(paste0(addr, fn1), destfile = fn1)
  dat <- read.table(fn1, header = TRUE, sep = ",")
\end{Sinput}
\end{Schunk}
