con <- url("http://csde.washington.edu/training/courses/Rintermed2007/complete_all.RData")
load(con)