x = nuclearPed(father = "fa", mother = "mo", children = "ch") |>
addMarker(name = "m1", geno = c(NA, "1/1", "1/2")) |>
addMarker(name = "m2", geno = c(NA, "2/2", "2/2"))
isHomozygous(x)
isHomozygous(x, ids = "mo")
isHomozygous(x, count = TRUE)
Run the code above in your browser using DataLab