R/parse_parameters.R

In regsem: Regularized Structural Equation Modeling

#' Takes either a vector of parameter ids or a
#' vector of named parameters and returns a vector of parameter ids
#' @param x Parameter labels
#' @param model Lavaan model
#' @return NULL if undefined input. Else vector of parameter ids
#'
parse_parameters <- function(x, model)
{
  if (is.null(x)) {return(x)} else
  if (is.numeric(x)) {return (x)}
  else if (is.character(x)) {
    labels <- parTable(model)$label
    ids <- parTable(model)$free
    matching.ids <- which(labels %in% x)
    if (length(matching.ids)!=length(x)) {
      stop("Have to specify parameter number in pars_pen for equality constrained labels")
    }
    return(ids[matching.ids])

  } else {
    warning("Unknown class type passed to parse_parameters().")
    return(NULL)
  }
}