# SNP data
gl2 <- gl.drop.ind(testset.gl,
ind.list=c('AA019073','AA004859'))
# Tag P/A data
gs2 <- gl.drop.ind(testset.gs,
ind.list=c('AA020656','AA19077','AA004859'))
gs2 <- gl.drop.ind(testset.gs, ind.list=c('AA020656'
,'AA19077','AA004859'),mono.rm=TRUE, recalc=TRUE)
Run the code above in your browser using DataLab