# NOT RUN {
data(listeria)
# }
# NOT RUN {
listeria <- calc.genoprob(listeria, step=2.5)
out <- scanone(listeria, model="2part", upper=TRUE)
# Maximum peak for LOD(p,mu)
max(out)
# Maximum peak for LOD(p,mu) on chr 5
max(out,chr=5)
# Maximum peak for LOD(p,mu) on chromosomes other than chr 13
max(out,chr="-13")
# Maximum peak for LOD(p)
max(out, lodcolumn=2)
# Maximum peak for LOD(mu)
max(out, lodcolumn=3)
# }
Run the code above in your browser using DataLab