R/mice_multilevel_draw_binomial.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## 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)
}