added 1000 Genomes R code