if (!file.exists('survey.data'))
{
UCI <- "ftp://ftp.ics.uci.edu/pub"
REPOS <- "ml-repos/machine-learning-databases"
survey.url <- sprintf("%s/%s/adult/adult.data", UCI, REPOS)
download.file(survey.url, "survey.data")
survey <- read.csv("survey.data", header=F, strip.white=TRUE,
                   na.strings="?",
                   col.names=c("Age", "Workclass", "fnlwgt", 
                     "Education", "Education.Num", "Marital.Status", 
                     "Occupation", "Relationship", "Race", "Sex", 
                     "Capital.Gain", "Capital.Loss", 
                     "Hours.Per.Week", "Native.Country", 
                     "Salary.Group"))
write.table(survey, "survey.csv", sep=",", row.names=F)
save(survey, file="survey.Rdata", compress=TRUE)
}