# Kinship coefficients in a nuclear family with two children
x = nuclearPed(2)
kinship(x)
# X chromosomal kinship coefficients in the same family
kinship(x, Xchrom = TRUE)
# Autosomal kinships if the mother is 100% inbred
founderInbreeding(x, 2) = 1
kinship(x)
# Similar for X:
founderInbreeding(x, 2, chromType = "X") = 1
kinship(x, Xchrom = TRUE)
Run the code above in your browser using DataLab