rghype.RdGenerate random realisations from ghype model.
rghype(nsamples, model, m = NULL, multinomial = NULL, seed = NULL)scalar number of realisations
ghype model
optional scalar, number of edges to draw
optional boolean, draw from multinomial?
optional scalar, seed for random sampling.
list of adjacency matrices.
data('adj_karate')
model <- scm(adj_karate, FALSE, FALSE)
rghype(1, model)
#> [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#> [1,] 0 2 3 2 0 4 0 1 1 0 0 0 0
#> [2,] 2 0 6 1 0 0 0 2 1 0 1 0 3
#> [3,] 3 6 0 2 0 2 1 2 1 0 2 1 0
#> [4,] 2 1 2 0 1 0 0 0 0 0 1 0 0
#> [5,] 0 0 0 1 0 1 1 0 0 0 0 0 0
#> [6,] 4 0 2 0 1 0 0 0 1 0 0 0 0
#> [7,] 0 0 1 0 1 0 0 1 0 0 1 0 0
#> [8,] 1 2 2 0 0 0 1 0 0 1 0 0 0
#> [9,] 1 1 1 0 0 1 0 0 0 0 1 0 0
#> [10,] 0 0 0 0 0 0 0 1 0 0 0 0 0
#> [11,] 0 1 2 1 0 0 1 0 1 0 0 0 0
#> [12,] 0 0 1 0 0 0 0 0 0 0 0 0 0
#> [13,] 0 3 0 0 0 0 0 0 0 0 0 0 0
#> [14,] 2 1 0 1 0 2 0 1 0 0 0 0 0
#> [15,] 0 0 0 0 0 0 0 0 0 0 0 0 1
#> [16,] 1 0 0 0 1 0 0 0 0 0 0 0 0
#> [17,] 1 1 0 0 0 0 1 2 1 0 0 0 0
#> [18,] 1 0 1 0 1 0 0 0 0 0 0 0 0
#> [19,] 0 0 0 0 0 0 0 0 0 0 0 0 1
#> [20,] 0 0 0 0 0 0 0 0 0 0 0 0 0
#> [21,] 0 1 1 0 0 0 0 1 0 0 0 0 0
#> [22,] 0 1 0 0 0 0 0 0 0 0 0 0 0
#> [23,] 0 0 0 0 0 0 0 0 0 0 0 0 0
#> [24,] 3 0 3 1 1 0 0 1 1 0 0 0 0
#> [25,] 1 2 0 1 0 1 0 0 0 0 0 0 0
#> [26,] 2 2 0 0 0 0 0 0 0 0 0 0 0
#> [27,] 0 0 1 0 0 0 0 0 0 0 0 0 0
#> [28,] 1 0 2 1 0 0 0 0 0 0 0 0 0
#> [29,] 0 0 0 0 0 0 0 0 0 0 0 0 0
#> [30,] 2 0 0 0 0 0 0 1 1 1 0 0 0
#> [31,] 2 0 2 0 0 0 0 1 1 0 1 0 0
#> [32,] 0 0 3 1 0 2 1 0 0 0 0 0 1
#> [33,] 9 2 1 2 0 0 0 0 1 1 1 0 1
#> [34,] 8 5 5 0 1 3 1 1 3 0 0 1 0
#> [,14] [,15] [,16] [,17] [,18] [,19] [,20] [,21] [,22] [,23] [,24] [,25]
#> [1,] 2 0 1 1 1 0 0 0 0 0 3 1
#> [2,] 1 0 0 1 0 0 0 1 1 0 0 2
#> [3,] 0 0 0 0 1 0 0 1 0 0 3 0
#> [4,] 1 0 0 0 0 0 0 0 0 0 1 1
#> [5,] 0 0 1 0 1 0 0 0 0 0 1 0
#> [6,] 2 0 0 0 0 0 0 0 0 0 0 1
#> [7,] 0 0 0 1 0 0 0 0 0 0 0 0
#> [8,] 1 0 0 2 0 0 0 1 0 0 1 0
#> [9,] 0 0 0 1 0 0 0 0 0 0 1 0
#> [10,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [11,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [12,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [13,] 0 1 0 0 0 1 0 0 0 0 0 0
#> [14,] 0 0 0 1 0 0 0 0 0 0 0 0
#> [15,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [16,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [17,] 1 0 0 0 0 0 0 0 0 0 0 0
#> [18,] 0 0 0 0 0 0 0 0 0 0 1 0
#> [19,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [20,] 0 0 0 0 0 0 0 0 0 0 2 0
#> [21,] 0 0 0 0 0 0 0 0 0 1 0 0
#> [22,] 0 0 0 0 0 0 0 0 0 0 0 1
#> [23,] 0 0 0 0 0 0 0 1 0 0 0 0
#> [24,] 0 0 0 0 1 0 2 0 0 0 0 0
#> [25,] 0 0 0 0 0 0 0 0 1 0 0 0
#> [26,] 1 1 0 0 0 1 0 0 0 0 0 1
#> [27,] 0 0 0 0 0 0 0 0 0 0 0 0
#> [28,] 1 0 1 0 0 0 0 0 0 0 0 0
#> [29,] 0 0 0 0 0 0 0 0 0 1 1 0
#> [30,] 1 1 0 0 0 0 0 0 0 0 0 0
#> [31,] 2 0 0 0 0 1 0 0 2 0 1 0
#> [32,] 0 0 1 0 0 0 0 1 0 0 0 0
#> [33,] 1 0 2 0 1 0 0 0 0 0 2 2
#> [34,] 1 1 1 0 0 0 2 3 0 0 1 2
#> [,26] [,27] [,28] [,29] [,30] [,31] [,32] [,33] [,34]
#> [1,] 2 0 1 0 2 2 0 9 8
#> [2,] 2 0 0 0 0 0 0 2 5
#> [3,] 0 1 2 0 0 2 3 1 5
#> [4,] 0 0 1 0 0 0 1 2 0
#> [5,] 0 0 0 0 0 0 0 0 1
#> [6,] 0 0 0 0 0 0 2 0 3
#> [7,] 0 0 0 0 0 0 1 0 1
#> [8,] 0 0 0 0 1 1 0 0 1
#> [9,] 0 0 0 0 1 1 0 1 3
#> [10,] 0 0 0 0 1 0 0 1 0
#> [11,] 0 0 0 0 0 1 0 1 0
#> [12,] 0 0 0 0 0 0 0 0 1
#> [13,] 0 0 0 0 0 0 1 1 0
#> [14,] 1 0 1 0 1 2 0 1 1
#> [15,] 1 0 0 0 1 0 0 0 1
#> [16,] 0 0 1 0 0 0 1 2 1
#> [17,] 0 0 0 0 0 0 0 0 0
#> [18,] 0 0 0 0 0 0 0 1 0
#> [19,] 1 0 0 0 0 1 0 0 0
#> [20,] 0 0 0 0 0 0 0 0 2
#> [21,] 0 0 0 0 0 0 1 0 3
#> [22,] 0 0 0 0 0 2 0 0 0
#> [23,] 0 0 0 1 0 0 0 0 0
#> [24,] 0 0 0 1 0 1 0 2 1
#> [25,] 1 0 0 0 0 0 0 2 2
#> [26,] 0 0 0 0 0 0 0 0 2
#> [27,] 0 0 0 0 0 0 0 1 0
#> [28,] 0 0 0 0 3 2 0 1 1
#> [29,] 0 0 0 0 0 0 0 0 0
#> [30,] 0 0 3 0 0 1 2 0 2
#> [31,] 0 0 2 0 1 0 1 0 2
#> [32,] 0 0 0 0 2 1 0 4 3
#> [33,] 0 1 1 0 0 0 4 0 2
#> [34,] 2 0 1 0 2 2 3 2 0