R/cov_clm__addConfigToOptimParams__setDefaultOrderToPar.R

In phmpacheco-ufjf/clm: A package to deal with complex longitudinal survey data

setDefaultOrderToPar <- function(optimParams, sigmaThetaExprList) {
  if (!is.null(names(optimParams$par))) {
    optimParams$par <- optimParams$par[sigmaThetaExprList$paramsNames]
  } else {
    names(optimParams$par) <- sigmaThetaExprList$paramsNames
  }

  return(optimParams)
}