get_haplotypes_individuals(individuals)

Arguments

individuals

Individuals to get haplotypes for.

Value

Matrix of haplotypes where row i is the haplotype of individuals[[i]].

See also

Examples

sim <- sample_geneology(100, 10) peds <- build_pedigrees(sim$population) pedigrees_all_populate_haplotypes(peds, 2, c(1, 1)) get_haplotypes_individuals(sim$end_generation_individuals)
#> [,1] [,2] #> [1,] 1 3 #> [2,] 1 -3 #> [3,] 3 3 #> [4,] -3 -5 #> [5,] 1 -1 #> [6,] -3 -1 #> [7,] 5 -5 #> [8,] -5 -1 #> [9,] 3 1 #> [10,] -3 -1 #> [11,] -1 1 #> [12,] 5 -5 #> [13,] -3 -5 #> [14,] 3 1 #> [15,] 3 1 #> [16,] -1 1 #> [17,] 1 1 #> [18,] 1 3 #> [19,] 1 -1 #> [20,] -3 5 #> [21,] 1 1 #> [22,] 1 -1 #> [23,] -3 1 #> [24,] 1 -1 #> [25,] -5 3 #> [26,] 1 -1 #> [27,] 1 -1 #> [28,] -1 1 #> [29,] 3 -1 #> [30,] -3 -3 #> [31,] -1 -3 #> [32,] -1 3 #> [33,] -1 1 #> [34,] 3 1 #> [35,] 1 -1 #> [36,] 3 -3 #> [37,] -1 -1 #> [38,] -1 1 #> [39,] -1 3 #> [40,] 1 1 #> [41,] -1 -1 #> [42,] 1 -3 #> [43,] -3 -1 #> [44,] -5 1 #> [45,] 1 1 #> [46,] -5 -1 #> [47,] 1 -3 #> [48,] 3 1 #> [49,] -3 1 #> [50,] -1 5 #> [51,] -5 1 #> [52,] -3 3 #> [53,] -5 -1 #> [54,] -1 5 #> [55,] 1 -3 #> [56,] -1 1 #> [57,] -3 -3 #> [58,] 3 3 #> [59,] 1 -3 #> [60,] -3 -1 #> [61,] -3 1 #> [62,] 1 -5 #> [63,] -3 1 #> [64,] -3 3 #> [65,] 3 -1 #> [66,] 1 -1 #> [67,] -1 -1 #> [68,] 3 1 #> [69,] 3 1 #> [70,] 1 7 #> [71,] 3 -3 #> [72,] -3 -5 #> [73,] 3 -5 #> [74,] -1 3 #> [75,] -5 3 #> [76,] 1 1 #> [77,] -5 -1 #> [78,] -3 1 #> [79,] -1 -3 #> [80,] -1 1 #> [81,] -3 3 #> [82,] 1 3 #> [83,] -1 -5 #> [84,] -1 5 #> [85,] 1 5 #> [86,] 1 3 #> [87,] -3 -3 #> [88,] -1 -5 #> [89,] -1 3 #> [90,] -1 -1 #> [91,] 1 1 #> [92,] -3 1 #> [93,] 1 -1 #> [94,] -3 1 #> [95,] -3 3 #> [96,] 3 1 #> [97,] 1 5 #> [98,] -1 1 #> [99,] -3 -1 #> [100,] 1 1