# Four siblings:
x = nuclearPed(4)
# First 3 sibs typed with 4 triallelic markers
x = markerSim(x, N = 4, ids = 3:5, alleles = 1:3, seed = 577, verbose = FALSE)
# Probability that a random man is excluded as the fourth sibling
randomPersonEP(x, id = 6)
Run the code above in your browser using DataLab