R/mice_imputation_smcfcs_draw_bootstrap_sample.R

Defines functions mice_imputation_smcfcs_draw_bootstrap_sample

## File Name: mice_imputation_smcfcs_draw_bootstrap_sample.R
## File Version: 0.03

mice_imputation_smcfcs_draw_bootstrap_sample <- function(data, ry)
{
    ind_boot <- which(ry)
    ind_boot <- sort( sample(ind_boot, length(ind_boot), replace=TRUE) )
    dat1 <- data[ ind_boot, ]
    rownames(dat1) <- NULL
    return(dat1)
}

Try the miceadds package in your browser

Any scripts or data that you put into this service are public.

miceadds documentation built on May 29, 2024, 11:05 a.m.