## ===============================================
## function implementing inverse tranform sampling
## for descrete random number generation
## ===============================================
#' @export
.its <- function(n, qfun, minp, ...) {
r <- runif(n, minp, 1)
# browser()
return(floor(qfun(r, ...)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.