# NOT RUN {
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")
# }
# NOT RUN {
fake.f2 <- est.rf(fake.f2)
checkAlleles(fake.f2)
# }
Run the code above in your browser using DataLab