# NOT RUN {
# without dropout, a father-mother-child mixture has 4 indep. alleles
p <- pr_independent_alleles_ped(pedtools::nuclearPed(),
ped_contributors = as.character(1:3),
dropout_prs = rep(0, 3))
stopifnot(identical(p,
stats::setNames(1., "4")))
# }
Run the code above in your browser using DataLab