Get haplotypes in pedigree
get_haplotypes_in_pedigree(ped)Pedigree
List with haplotypes
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
#>