R/improveCore.R
parentVector2anc.RdConverts a tree given as parent vector format to an ancestor matrix
parentVector2anc(parents, n)A integer vector. Parent vector format tree.
A single integer. The number of mutations.
a logical matrix;0 and 1
p = c(11, 2, 3, 14, 14, 16, 8, 6, 9, 1, 15, 8, 10, 14, 5, 13, 17)
parentVector2anc(parents=p,n = 16)
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,] 1 0 0 0 0 0 0 0 0 0 0 0 0
#> [2,] 1 1 0 0 0 0 1 1 1 1 0 1 0
#> [3,] 1 1 1 0 0 0 1 1 1 1 0 1 0
#> [4,] 1 1 1 1 0 0 1 1 1 1 0 1 0
#> [5,] 0 0 0 0 1 0 0 0 0 0 0 0 0
#> [6,] 1 1 1 1 1 1 1 1 1 1 1 1 1
#> [7,] 0 0 0 0 0 0 1 1 0 0 0 0 0
#> [8,] 0 0 0 0 0 0 0 1 0 0 0 0 0
#> [9,] 1 0 0 0 0 0 1 1 1 0 0 1 0
#> [10,] 1 0 0 0 0 0 1 1 1 1 0 1 0
#> [11,] 0 0 0 0 0 0 0 0 0 0 1 0 1
#> [12,] 1 0 0 0 0 0 0 0 0 0 0 1 0
#> [13,] 0 0 0 0 0 0 0 0 0 0 0 0 1
#> [14,] 0 0 0 0 0 0 0 0 0 0 1 0 1
#> [15,] 1 1 1 1 1 0 1 1 1 1 1 1 1
#> [16,] 0 0 0 0 0 0 0 0 0 0 1 0 1
#> [,14] [,15] [,16]
#> [1,] 0 0 0
#> [2,] 0 0 0
#> [3,] 0 0 0
#> [4,] 0 0 0
#> [5,] 0 0 0
#> [6,] 1 1 1
#> [7,] 0 0 0
#> [8,] 0 0 0
#> [9,] 0 0 0
#> [10,] 0 0 0
#> [11,] 0 0 0
#> [12,] 0 0 0
#> [13,] 0 0 0
#> [14,] 1 0 1
#> [15,] 1 1 1
#> [16,] 0 0 1