\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 library(foreign)
 library(car)
 filename <- "/home/pauljohn/SVN/SVN-guides/Rcourse/04245-0001-Data.dta"
 #if(!file.exists("../04245-0001-Data.dta"))
 if(!file.exists(filename)){
    download.file(url="http://pj.freefaculty.org/guides/Rcourse/04245-0001-Data.dta", dest = "../04245-0001-Data.dta")
  mydta1 <- read.dta("../04245-0001-Data.dta")
  } else {
  mydta1 <- read.dta(filename)
  }
\end{Sinput}
\end{Schunk}
