gap (version 1.6)

kin.morgan: kinship matrix for simple pedigree

Description

kinship matrix for simple pedigree

Usage

kin.morgan(ped, verbose = FALSE)

Value

The returned value is a list containing:

• kin the kinship matrix in vector form.

• kin.matrix the kinship matrix.

Arguments

ped

individual's id, father's id and mother's id.

verbose

an option to print out the original pedigree.

Author

Morgan development team, Jing Hua Zhao

Details

kinship matrix according to Morgan v2.1.

References

Morgan V2.1 https://sites.stat.washington.edu/thompson/Genepi/MORGAN/Morgan.shtml

See Also

gif

Examples

if (FALSE) {
# Werner syndrome pedigree
werner<-c(
 1, 0,  0,  1,
 2, 0,  0,  2,
 3, 0,  0,  2,
 4, 1,  2,  1,
 5, 0,  0,  1,
 6, 1,  2,  2,
 7, 1,  2,  2,
 8, 0,  0,  1,
 9, 4,  3,  2,
10, 5,  6,  1,
11, 5,  6,  2,
12, 8,  7,  1,
13,10,  9,  2,
14,12, 11,  1,
15,14, 13,  1)
werner<-t(matrix(werner,nrow=4))
kin.morgan(werner[,1:3])
}