#load example data
data(ASEset)
data(genomatrix)
p <- genotype2phase(genomatrix, ref(ASEset), return.class="array")
ref <- ref(ASEset)
alt <- inferAltAllele(ASEset)
gt <- phase2genotype(p, ref, alt, return.class="matrix")
Run the code above in your browser using DataLab