data(exampleRAD)
exampleRAD <- AddGenotypePriorProb_Even(exampleRAD)
exampleRAD$priorProb
# finish protocol to get genotypes
exampleRAD <- AddGenotypeLikelihood(exampleRAD)
exampleRAD <- AddPloidyChiSq(exampleRAD)
exampleRAD <- AddGenotypePosteriorProb(exampleRAD)
genmat <- GetWeightedMeanGenotypes(exampleRAD)
genmat
Run the code above in your browser using DataLab