# Four siblings; the fourth is missing
x = nuclearPed(4)
# Remaining sibs typed with 5 triallelic markers
x = markerSim(x, N = 5, ids = 3:5, alleles = 1:3, seed = 123, verbose = FALSE)
# Compute inclusion power statistics
ip = missingPersonIP(x, missing = 6, nsim = 5, threshold = c(10, 100))
ip
# LRs from each simulation
ip$LRperSim
Run the code above in your browser using DataLab