# NOT RUN {
data(hyper)
# }
# NOT RUN {
# Calculate error LOD scores
hyper <- calc.errorlod(hyper,error.prob=0.01)
# plot the error LOD scores; print those above a specified cutoff
plotErrorlod(hyper)
plotErrorlod(hyper,chr=1)
# }
Run the code above in your browser using DataLab