fixParents {kinship2}

Fix details on the parents for children of the pedigree

Description

Fix the sex of parents, add parents that are missing from the pedigree

Usage

fixParents(id, dadid, momid, sex, missid = 0)

Arguments

id

Identification variable for individual

dadid

Identification variable for father. Founders parents should be coded to NA, or another value specified by missid.

momid

Identification variable for mother. Founders parents should be coded to NA, or another value specified by missid.

sex

Gender of individual noted in 'id'. Either character ("male","female","unknown","terminated") or numeric (1="male", 2="female", 3="unknown", 4="terminated") data is allowed. For character data the string may be truncated, and of arbitrary case.

missid

The founders are those with no father or mother in the pedigree. The dadid and momid values for these subjects will either be NA or the value of this variable. The default for missid is 0 if the id variable is numeric, and "" (the empty string) otherwise.

Details

First look to add parents whose ids are given in momid/dadid. Second, fix sex of parents. Last look to add second parent for children for whom only one parent id is given.

Value

A data.frame with id, dadid, momid, sex as columns

Author(s)

Jason Sinnwell

See Also

pedigree

Examples

test1char <- data.frame(id=paste("fam", 101:111, sep=""),
  sex=c("male","female")[c(1,2,1,2,1, 1,2, 2,1,2, 1)],
  father=c(0,0,"fam101","fam101","fam101", 0,0,"fam106","fam106","fam106", "fam109"),
  mother=c(0,0,"fam102","fam102","fam102", 0,0,"fam107","fam107","fam107", "fam112"))
test1newmom <- with(test1char, fixParents(id, father, mother, sex, missid="0"))
newped <- with(test1newmom, pedigree(id, dadid, momid, sex, missid="0"))
as.data.frame(newped)