R/modsem_internals.R

In plssem: Complex Partial Least Squares Structural Equation Modeling

.internalModsemAPI <- function(nm) {
  # Function for calling internal modsem objects
  # using ::: directly leads to an R CMD check note

  eval(parse(text=paste0("modsem:::", nm)))
}


parTableToSyntax      <- .internalModsemAPI("parTableToSyntax")
getStructOVs          <- .internalModsemAPI("getStructOVs")
getParTableLabels     <- .internalModsemAPI("getParTableLabels")
multiplyIndicatorsCpp <- .internalModsemAPI("multiplyIndicatorsCpp")
# simulateDataParTable  <- .internalModsemAPI("simulateDataParTable")
createProdInds        <- .internalModsemAPI("createProdInds")
allignLhsRhs          <- .internalModsemAPI("allignLhsRhs")