geo<-read.table("individualGPS", sep="\t")
sample.names<-geo$V1
sample.names<-as.matrix(sample.names)
new.geo<-geo[,2:3]
new.geo<-as.matrix(new.geo)
colors <- as.vector(c(rep("gray56", 10), rep("dodgerblue3", 4), rep("purple", 2), 
                      rep("cyan", 22), rep("green", 10)))


subsetOutput<-make.spacemix.map.list(MCMC.output.file = "run_246935/indiaWide_SNPs_LongRun/indiaWide_SNPs_space_MCMC_output1.Robj", 
                                                          geographic.locations = new.geo, name.vector = sample.names, color.vector = colors, quantile = 0.95, burnin = 0)