## File Name: mice_multilevel_draw_binomial.R
## File Version: 0.05
########################################################################
# draw binomial data
mice_multilevel_draw_binomial <- function( probs ){
N <- length(probs)
rn <- stats::runif(N, 0, 1)
res <- 1*(rn < probs)
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.