data(fake.f2)
geno.crosstab(fake.f2, "D5M391", "D5M81")
# switch homozygotes at marker D5M391
fake.f2 <- switchAlleles(fake.f2, "D5M391")
geno.crosstab(fake.f2, "D5M391", "D5M81")
if (FALSE) fake.f2 <- est.rf(fake.f2)
checkAlleles(fake.f2)
Run the code above in your browser using DataLab