# NOT RUN {
# 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