R/2.9.main.R

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

organizeFitTheta <- function(fitTheta, gofMeasures, call, sigmaThetaExpr) {
  fitTheta$gofMeasures <- gofMeasures
  fitTheta$call <- call

  fitTheta$sigmaThetaType <- getSigmaThetaType(sigmaThetaExpr)

  class(fitTheta) <- "mmcsd.theta"
  return(fitTheta)
}