# SNP data
popNames(testset.gl)
gl <- gl.reassign.pop(testset.gl, as.pop='sex',verbose=3)
popNames(gl)
# Tag P/A data
popNames(testset.gs)
gs <- gl.reassign.pop(testset.gs, as.pop='sex',verbose=3)
popNames(gs)
Run the code above in your browser using DataLab