R/2.4.main.R

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

getDerivativesExprList <- function(sigmaThetaExprList) {
  derivativesExprList <- lapply(sigmaThetaExprList$expr, function(expr) {
    stats::deriv(expr, sigmaThetaExprList$paramsNames, hessian = TRUE)
  })

  return(derivativesExprList)
}