db = NorwegianFrequencies[1:5]
# Pedigree with 3 siblings; simulate data for first two
x = nuclearPed(3) |>
profileSim(ids = 3:4, markers = db, seed = 1)
# Simulate random person
poi = singleton("POI") |>
profileSim(markers = db, seed = 1)
# Identify incompatible markers
findExclusions(x, id = 5, candidate = poi) # D21S11
# Inspect
plotPedList(list(x, poi), marker = "D21S11", hatched = typedMembers)
Run the code above in your browser using DataLab