# setwd("C:/cwru/classes/epbi473_05/lec3(SEER.Abomb)") popsw=c(4,7,2,1,1,1,2, 8) popvars=c('popyear','X0','popseer','poprace','origin','popsex', 'popage','population') inpre=c('yr1973_2002.populations/white.black.other/','yr1992_2002.populations/expanded.races/') outpre=c('yr1973_2002.seer9/','yr1992_2002.sj_la_rg_ak/') for (i in 1:2) { pops=read.fwf(paste("c:/SEER02/",inpre[i],'byregistry.txt',sep=""), width=popsw,col.names=popvars) pops=subset(pops,select=c('popyear','popseer','poprace','popsex','popage','population')) save(pops,file=paste("c:/SEER02/",outpre[i],'pops.RData',sep="")) }