Nothing
rgenpois <-
function(n, lambda1, lambda2)
{
random_genpois <- numeric(n)
for (i in 1:n)
{
temp_random_genpois <- 0
random_number <- runif(1)
kum <- dgenpois(0, lambda1 = lambda1, lambda2 = lambda2)
while(random_number > kum)
{
temp_random_genpois <- temp_random_genpois + 1
kum <- kum + dgenpois(temp_random_genpois, lambda1 = lambda1, lambda2 = lambda2)
}
random_genpois[i] <- temp_random_genpois
}
return(random_genpois)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.