n = 2000
i = 94
t = 93
mu = 100
theta = 10
p = 0.2
x <- ritnb(n = n, mu = mu, theta = theta, p = p, i = i, t = t)
em_itnb(x = x, i = i, t = t, control = em_itnb_control(trace = 100))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.