R/2.1.setDefaultOrderToPar.R

In Mmcsd: Modeling Complex Longitudinal Data in a Quick and Easy Way

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

  return(optimParams)
}