R/lav_lavaanList_multipleGroups.R

In nietsnel/psindex: Parameter Stability Index

# lavMultipleGroups: fit the *same* model, on (typically a small number of) 
#                    groups/sets
# YR - 11 July 2016

lavMultipleGroups <- 
    function(model     = NULL,
             dataList  = NULL,
             ndat      = length(dataList),
             cmd           = "sem",
             ...,
             store.slots   = c("partable"),
             FUN           = NULL,
             show.progress = FALSE,
             parallel      = c("no", "multicore", "snow"),
             ncpus         = max(1L, parallel::detectCores() - 1L),
             cl            = NULL) {


    # dotdotdot
    dotdotdot <- list()

    # fit multiple times
    fit <- do.call("psindexList", args = c(list(model = model, 
                   dataList = dataList, ndat = ndat, cmd = cmd,
                   store.slots = store.slots, FUN = FUN,
                   show.progress = show.progress,
                   parallel = parallel, ncpus = ncpus, cl = cl), dotdotdot))

    # store group labels (if any)
    fit@meta$lavMultipleGroups <- TRUE
    fit@meta$group.label <- names(dataList)

    fit
}