R/method_settings_pi.R

In modsem: Latent Interaction (and Moderation) Analysis in Structural Equation Models (SEM)

getMethodSettingsPI <- function(method, args) {
    defaultResCov <- "simple"
    settings <- list(
        rca = list(
            center.before = FALSE,
            center.after = FALSE,
            residuals.prods = TRUE,
            residual.cov.syntax = TRUE,
            constrained.prod.mean = FALSE,
            constrained.loadings = FALSE,
            constrained.var = FALSE,
            constrained.res.cov.method =  defaultResCov,
            match = FALSE),
        uca  = list(
            center.before = TRUE,
            center.after = FALSE,
            residuals.prods = FALSE,
            residual.cov.syntax = TRUE,
            constrained.prod.mean = TRUE,
            constrained.loadings = FALSE,
            constrained.var = FALSE,
            constrained.res.cov.method =  defaultResCov,
            match = FALSE),
        pind  = list(
            center.before = FALSE,
            center.after = FALSE,
            residuals.prods = FALSE,
            residual.cov.syntax = FALSE,
            constrained.prod.mean = FALSE,
            constrained.loadings = FALSE,
            constrained.var = FALSE,
            constrained.res.cov.method =  defaultResCov,
            match = FALSE),
        dblcent  = list(
            center.before = TRUE,
            center.after = TRUE,
            residuals.prods = FALSE,
            residual.cov.syntax = TRUE,
            constrained.prod.mean = FALSE,
            constrained.loadings = FALSE,
            constrained.var = FALSE,
            constrained.res.cov.method =  defaultResCov,
            match = FALSE),
        ca = list(
            center.before = TRUE,
            center.after = FALSE,
            residuals.prods = FALSE,
            residual.cov.syntax = TRUE,
            constrained.prod.mean = TRUE,
            constrained.loadings = TRUE,
            constrained.var = TRUE,
            constrained.res.cov.method =  "ca",
            match = TRUE)
        )

    settingNames <- unique(unlist(lapply(settings, FUN = names)))
    args <- args[settingNames]

    if (is.null(args)) return(settings[method])

    isMissing <- vapply(args, FUN.VALUE = logical(1L), FUN = is.null)
    missingArgs <- settingNames[isMissing]
    if  (!method %in% names(settings)) {
        stop2("Unrecognized method")
    }
    c(settings[[method]][missingArgs], args[!isMissing])
}



#' default arguments for product indicator approaches
#'
#' @param method which method to get the settings for
#' @return list
#' @export
#' @description
#' This function returns the default settings for the product indicator approaches
#' @examples
#' library(modsem)
#' default_settings_pi()
default_settings_pi <- function(method = c("rca", "uca", "pind", "dblcent", "ca")) {
  getMethodSettingsPI(method = method, args = NULL)
}