# R program to compute random
# Negative Binomial Density
 
# Setting seed for
# random number generation
set.seed(1000)
 
# Set sample size
N <- 20
 
# Calling rnbinom() Function
y <- rnbinom(N, size = 10, prob = 0.5)
y

 [1]  9 12  8  4 10  3  9 19  3 14 11 11  6 15 14 12  6  5  5  4

# R program to compute random
# Negative Binomial Density
 
# Setting seed for
# random number generation
set.seed(1000)
 
# Set sample size
N <- 100
 
# Calling rnbinom() Function
y <- rnbinom(N, size = 50, prob = 0.5)
 
# Plot a graph
plot(y)