R/with.nested.datlist.R

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

## File Name: with.nested.datlist.R
## File Version: 1.08

##################################################################
# with function for a nested imputation list
with.nested.datlist <- function(data, expr,fun,...)
{
    pf<-parent.frame()
    NB <- attr( data, "Nimp")[1]
    results0 <- as.list( seq( 1, NB) )
    data0 <- data
    for (bb in 1:NB){
        data <- list()
        data <- data0[[bb]]
        #**************************************
        # This code is copied from the with.imputationList
        # function from the mitools package
        if ( ! is.null(match.call()$expr) ){
        expr <- substitute(expr)
        results <- lapply(data, function(dataset){
                        eval(expr, dataset, enclos=pf)
                        } )
        } else {
            results <- lapply(data, FUN=fun,...)
        }
        if (all(sapply(results, inherits,  what="imputationResult"))){
            class(results)<-"imputationResultList"
            results$call<-sys.call(-1)
        } else {
            attr(results,"call")<-sys.call(-1)
        }
        results0[[bb]] <- results
    }
    class(results0) <- "NestedImputationResultList"
    return(results0)
}
####################################################################