data(PolyData)
genotypes <- PolyData$PGeno
genotypes[1:5,1:5] # look the original format
####=========================================####
#### convert markers to numeric format
####=========================================####
#numo <- atcg1234(data=genotypes, ploidy=4)
#numo[1:5,1:5]; dim(numo)
Run the code above in your browser using DataLab