data(hyper)
# Calculate error LOD scores
hyper <- calc.errorlod(hyper,error.prob=0.01)
# print those above a specified cutoff
top.errorlod(hyper,cutoff=4)
# plot genotype data, flagging genotypes with error LOD > cutoff
plotGeno(hyper, chr=1, ind=160:200, cutoff=7, min.sep=2)
Run the code above in your browser using DataLab