data(hyper)
hyper <- subset(hyper,chr=c(1,19))
# 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