x = nuclearPed(nch = 4) |>
markerSim(N = 4, alleles = c("a", "b", "c"), seed = 1, verbose = FALSE)
x
# Remove data for father
y = setAlleles(x, ids = 1, alleles = 0)
# Most likely profiles of father
rankProfiles(y, id = 1)
# Compare with truth
getGenotypes(x, ids = 1)
# Same example with mutations allowed
z = setMutmod(y, model = "equal", rate = 0.01)
rankProfiles(z, id = 1)
Run the code above in your browser using DataLab