Get haplotypes in pedigree

get_haplotypes_in_pedigree(ped)

Arguments

ped

Pedigree

Value

List with haplotypes

Examples

sim <- sample_geneology(100, 10)
peds <- build_pedigrees(sim$population)
pedigrees_all_populate_haplotypes(peds, 2, c(1, 1))
get_haplotypes_in_pedigree(peds[[1]])
#> [[1]]
#> [1] 0 0
#> 
#> [[2]]
#> [1]  1 -1
#> 
#> [[3]]
#> [1] 0 0
#> 
#> [[4]]
#> [1] 1 1
#> 
#> [[5]]
#> [1] 0 0
#> 
#> [[6]]
#> [1] 1 1
#> 
#> [[7]]
#> [1] 0 2
#> 
#> [[8]]
#> [1] -1  3
#> 
#> [[9]]
#> [1] 0 2
#> 
#> [[10]]
#> [1] 1 1
#> 
#> [[11]]
#> [1] 0 4
#> 
#> [[12]]
#> [1] 1 5
#> 
#> [[13]]
#> [1] -1  3
#> 
#> [[14]]
#> [1] 1 3
#> 
#> [[15]]
#> [1] 0 0
#> 
#> [[16]]
#> [1] -1  1
#> 
#> [[17]]
#> [1] -2  0
#> 
#> [[18]]
#> [1] -1 -1
#> 
#> [[19]]
#> [1]  0 -2
#> 
#> [[20]]
#> [1]  1 -1
#> 
#> [[21]]
#> [1]  1 -1
#> 
#> [[22]]
#> [1] 0 2
#> 
#> [[23]]
#> [1] -1  3
#> 
#> [[24]]
#> [1] 0 4
#> 
#> [[25]]
#> [1] -1  3
#> 
#> [[26]]
#> [1] -2  4
#> 
#> [[27]]
#> [1] -1  5
#> 
#> [[28]]
#> [1] -2  2
#> 
#> [[29]]
#> [1] -1  3
#> 
#> [[30]]
#> [1] -2  4
#> 
#> [[31]]
#> [1] -3  3
#> 
#> [[32]]
#> [1] -1 -1
#> 
#> [[33]]
#> [1]  0 -2
#> 
#> [[34]]
#> [1]  1 -3
#> 
#> [[35]]
#> [1]  0 -2
#> 
#> [[36]]
#> [1]  1 -1
#> 
#> [[37]]
#> [1]  0 -2
#> 
#> [[38]]
#> [1]  1 -1
#> 
#> [[39]]
#> [1]  0 -2
#> 
#> [[40]]
#> [1]  1 -3
#> 
#> [[41]]
#> [1] 2 0
#> 
#> [[42]]
#> [1] 3 1
#> 
#> [[43]]
#> [1]  2 -2
#> 
#> [[44]]
#> [1]  1 -3
#> 
#> [[45]]
#> [1]  2 -4
#> 
#> [[46]]
#> [1]  1 -5
#> 
#> [[47]]
#> [1]  2 -6
#> 
#> [[48]]
#> [1]  3 -7
#> 
#> [[49]]
#> [1]  2 -2
#> 
#> [[50]]
#> [1]  3 -3
#> 
#> [[51]]
#> [1]  2 -2
#> 
#> [[52]]
#> [1]  3 -3
#> 
#> [[53]]
#> [1]  2 -4
#> 
#> [[54]]
#> [1]  1 -3
#> 
#> [[55]]
#> [1]  3 -1
#> 
#> [[56]]
#> [1]  4 -2
#> 
#> [[57]]
#> [1]  3 -1
#> 
#> [[58]]
#> [1]  5 -3
#> 
#> [[59]]
#> [1]  3 -1
#> 
#> [[60]]
#> [1]  2 -2
#> 
#> [[61]]
#> [1]  3 -1
#>