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