# set up inheritance space for half sib pedigree
i <- inheritance_space(pedigree = pedtools::halfSibPed())
# since there are 2 non-founders, there are 2^4 IBD vectors
# but only 2 distinct states are considered because of symmetries
i
# pry into the internals to see individual pedigree transmissions
i$transmissions
Run the code above in your browser using DataLab