Get parents of individuals

Get the parents of individuals.

Usage

# S4 method for class 'character_OR_integer'
parent_of(obj, dadid, momid, id2)

# S4 method for class 'Ped'
parent_of(obj, id2)

# S4 method for class 'Pedigree'
parent_of(obj, id2)

Arguments

obj

A character vector with the id of the individuals or a data.frame with all the informations in corresponding columns.

dadid

A vector containing for each subject, the identifiers of the biologicals fathers.

momid

A vector containing for each subject, the identifiers of the biologicals mothers.

id2

A vector of individuals identifiers to get the parents from

Value

A vector of individuals identifiers corresponding to the parents of the individuals in id2

Examples

data(sampleped)
ped <- Pedigree(sampleped)
#>    id dadid momid famid 
#> "101"    NA    NA   "1" 
#>    id dadid momid famid 
#> "102"    NA    NA   "1" 
#>    id dadid momid famid 
#> "103" "135" "136"   "1" 
#>    id dadid momid famid 
#> "104"    NA    NA   "1" 
#>    id dadid momid famid 
#> "105"    NA    NA   "1" 
#>    id dadid momid famid 
#> "106"    NA    NA   "1" 
#>    id dadid momid famid 
#> "107"    NA    NA   "1" 
#>    id dadid momid famid 
#> "108"    NA    NA   "1" 
#>    id dadid momid famid 
#> "109" "101" "102"   "1" 
#>    id dadid momid famid 
#> "110" "103" "104"   "1" 
#>    id dadid momid famid 
#> "111" "103" "104"   "1" 
#>    id dadid momid famid 
#> "112" "103" "104"   "1" 
#>    id dadid momid famid 
#> "113"    NA    NA   "1" 
#>    id dadid momid famid 
#> "114" "103" "104"   "1" 
#>    id dadid momid famid 
#> "115" "105" "106"   "1" 
#>    id dadid momid famid 
#> "116" "105" "106"   "1" 
#>    id dadid momid famid 
#> "117"    NA    NA   "1" 
#>    id dadid momid famid 
#> "118" "105" "106"   "1" 
#>    id dadid momid famid 
#> "119" "105" "106"   "1" 
#>    id dadid momid famid 
#> "120" "107" "108"   "1" 
#>    id dadid momid famid 
#> "121" "110" "109"   "1" 
#>    id dadid momid famid 
#> "122" "110" "109"   "1" 
#>    id dadid momid famid 
#> "123" "110" "109"   "1" 
#>    id dadid momid famid 
#> "124" "110" "109"   "1" 
#>    id dadid momid famid 
#> "125" "112" "118"   "1" 
#>    id dadid momid famid 
#> "126" "112" "118"   "1" 
#>    id dadid momid famid 
#> "127" "114" "115"   "1" 
#>    id dadid momid famid 
#> "128" "114" "115"   "1" 
#>    id dadid momid famid 
#> "129" "117" "116"   "1" 
#>    id dadid momid famid 
#> "130" "119" "120"   "1" 
#>    id dadid momid famid 
#> "131" "119" "120"   "1" 
#>    id dadid momid famid 
#> "132" "119" "120"   "1" 
#>    id dadid momid famid 
#> "133" "119" "120"   "1" 
#>    id dadid momid famid 
#> "134" "119" "120"   "1" 
#>    id dadid momid famid 
#> "135"    NA    NA   "1" 
#>    id dadid momid famid 
#> "136"    NA    NA   "1" 
#>    id dadid momid famid 
#> "137"    NA    NA   "1" 
#>    id dadid momid famid 
#> "138" "135" "136"   "1" 
#>    id dadid momid famid 
#> "139" "137" "138"   "1" 
#>    id dadid momid famid 
#> "140" "137" "138"   "1" 
#>    id dadid momid famid 
#> "141" "137" "138"   "1" 
#>    id dadid momid famid 
#> "201"    NA    NA   "2" 
#>    id dadid momid famid 
#> "202"    NA    NA   "2" 
#>    id dadid momid famid 
#> "203"    NA    NA   "2" 
#>    id dadid momid famid 
#> "204" "201" "202"   "2" 
#>    id dadid momid famid 
#> "205" "201" "202"   "2" 
#>    id dadid momid famid 
#> "206" "201" "202"   "2" 
#>    id dadid momid famid 
#> "207" "201" "202"   "2" 
#>    id dadid momid famid 
#> "208" "201" "202"   "2" 
#>    id dadid momid famid 
#> "209"    NA    NA   "2" 
#>    id dadid momid famid 
#> "210" "203" "204"   "2" 
#>    id dadid momid famid 
#> "211" "203" "204"   "2" 
#>    id dadid momid famid 
#> "212" "209" "208"   "2" 
#>    id dadid momid famid 
#> "213" "209" "208"   "2" 
#>    id dadid momid famid 
#> "214" "209" "208"   "2" 
parent_of(ped, "1_121")
#> [1] "1_110" "1_109"