data(listeria)
listeria <- calc.genoprob(listeria, step=2.5)
out <- scanone(listeria, model="2part")
# All peaks
summary(out)
# Peaks for LOD(p,mu)
summary(out, 5)
# peaks for LOD(p)
summary(out[,-3],3)
# peaks for LOD(mu)
summary(out[,-(3:4)],3)
Run the code above in your browser using DataLab