data(fake.f2)
fake.f2 <- calc.genoprob(fake.f2,error.prob=0.01)
fake.f2 <- calc.errorlod(fake.f2,error.prob=0.01)
plot.errorlod(fake.f2)
<testonly>data(fake.bc)</testonly>
<testonly>fake.bc <- calc.errorlod(fake.bc)</testonly>
<testonly>plot.errorlod(fake.bc)</testonly>Run the code above in your browser using DataLab