# A nuclear family with 2 boys and 3 girls,
# where the father and the two boys are affected.
x=nuclearPed(boys=2, girls=3)
x=modifyPedigree(x, id=c(1,3,4), attrib='AFF')
plot(x)
# A pedigree showing a pair of third cousins
y=cousinPed(3)
plot(y)
# Adding a child on one side, to create third cousins once removed.
# The pedigree plot above helps identifying which individual
# should have the extra child
y = addChildren(y, father=16, mother=0)
plot(y)
Run the code above in your browser using DataLab