> help(read.table)
> roster _ read.table("roster.txt",sep=c(1,11,37,44,48,53,58,64))
> roster$V1 _ round(100000000+800000000*runif(16))
> write.table(roster,"roster1.txt")