# NOT RUN {
rbivgeo1(n = 10, theta = c(0.5, 0.5, 0.7))
# [,1] [,2]
# [1,] 2 1
# [2,] 3 1
# [3,] 1 1
# [4,] 1 1
# [5,] 2 2
# [6,] 1 3
# [7,] 2 2
# [8,] 1 1
# [9,] 1 1
# [10,] 2 2
rbivgeo2(n = 10, theta = c(0.5, 0.5, 0.7))
# [,1] [,2]
# [1,] 1 1
# [2,] 2 1
# [3,] 2 1
# [4,] 4 1
# [5,] 1 1
# [6,] 2 2
# [7,] 3 2
# [8,] 3 1
# [9,] 3 2
# [10,] 1 1
# }
Run the code above in your browser using DataLab