x = nuclearPed(3)
sims = ibdsim(x, N = 2, map = uniformMap(M = 2), model = "haldane", seed = 1729)
# Segments where all siblings carry the same allele
segs = findPattern(sims, pattern = list(carriers = 3:5))
# Summarise
segmentStats(segs, unit = "mb")
# The unit does not matter in this case (since the map is trivial)
segmentStats(segs, unit = "cm")
Run the code above in your browser using DataLab