data(listeria)
listeria <- subset(listeria,chr=c(5,13))
listeria <- calc.genoprob(listeria, step=2.5)
out <- scanone(listeria, model="2part")
# Maximum peak for LOD(p,mu)
max(out)
max(out,chr=13)
# Maximum peak for LOD(p)
max(out[,-3])
# Maximum peak for LOD(mu)
max(out[,-(3:4)])
Run the code above in your browser using DataLab