data(toyped)
x = linkdat(toyped, model=1)
x
# MERLIN treats partial genotypes (i.e. one known and one unknown allele) as missing:
lod_merlin = merlin(x)
lod_partial = lod(x)
x = modifyMarker(x, marker=1, ids=1, genotype=0)
lod_missing = lod(x)
stopifnot(lod_merlin == round(lod_missing, 3))
# Likelihood computation by MERLIN:
merlin(x, model=F, options="--lik")
Run the code above in your browser using DataLab