# Example 1: No nonidentifiables in dataset `example1`
findNonidentifiable(example1)
# Example 2: Add nonidentifiable person "A"
amNew = example1$am[[1]] |>
addSon(parents = c("NN", "A"))
missNew = c(example1$missing, "A")
dvi = dviData(pm = example1$pm, am = amNew, missing = missNew)
plotDVI(dvi, textAbove = c(A = "nonidentif."))
findNonidentifiable(dvi)
Run the code above in your browser using DataLab