R/2.1.main.R

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

addConfigToOptimParams <- function(optimParams, fittingFunction, gradientFunction, sigmaThetaExprList) {
  optimParams$method <- addMethodIfMissing(optimParams)
  optimParams$fn <- fittingFunction
  optimParams$gr <- gradientFunction

  optimParams <- setLowerAndUpperIfExists(optimParams, sigmaThetaExprList)
  optimParams <- setDefaultOrderToPar(optimParams, sigmaThetaExprList)

  return(optimParams)
}