path <- commandArgs()[6] cntypop <- read.table(paste(path, "cntypop.txt", sep=""), header=TRUE, as.is=TRUE, strip.white=TRUE) #newcntypop <- read.csv(paste(path, "newcntypop.txt", sep=""), header=TRUE, # as.is=TRUE, strip.white=TRUE) gd80to84 <- read.table(paste(path, "gd80to84.txt", sep=""), header=TRUE, as.is=TRUE, strip.white=TRUE) gd85to89 <- read.table(paste(path, "gd85to89.txt", sep=""), header=TRUE, as.is=TRUE, strip.white=TRUE) save( cntypop, file = paste(path, "cntypop.RData", sep="") ) #save( # newcntypop, # file = paste(path, "newcntypop.RData", sep="") #) save( gd80to84, file = paste(path, "gd80to84.RData", sep="") ) save( gd85to89, file = paste(path, "gd85to89.RData", sep="") )