R/jomo2datlist.R

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

## File Name: jomo2datlist.R
## File Version: 0.09


# converts a dataframe in longformat (produced in jomo)
# into a list of datasets

jomo2datlist <- function( jomo.dataframe, variable="Imputation" )
{
    dat <- jomo.dataframe
    M1 <- max( unique( dat$Imputation ) )
    datlist <- as.list( 1:M1 )
    ind <- which( colnames(dat)==variable )
    for ( mm in 1:M1){
        datlist[[mm]] <- dat[ dat$Imputation==mm, - ind ]
    }
    return(datlist)
}