R/2.3.2.main.R

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

fitThetaCovariance <- function(fitTheta, sigmaThetaExprList, derivativesExprList, fittingType, fit) {
  if (fittingType == "PML") {
    covTheta <- fitThetaCovarPML(fitTheta, sigmaThetaExprList, derivativesExprList, fit)
  } else {
    covTheta <- fitThetaCovarGLSC(fitTheta, sigmaThetaExprList, derivativesExprList, fit)
  }

  return(covTheta)
}