mapthis <- calc.genoprob(mapthis, step = 0, off.end = 0.0, error.prob = 0.001, stepwidth = "fixed", map.function = "kosambi")
scan.mapthis <- cim(mapthis, pheno.col = 1, method = "hk", map.function = "kosambi")
plot(scan.mapthis)
I viewed the scan.mapthis and it does have many many markers on each chromosome with representing LOD scores. The plot however just shows the highest LOD score from each chromosome instead of them all.