R/cov_clm__organizeFitTheta____main.R

In phmpacheco-ufjf/clm: A package to deal with complex longitudinal survey data

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

  fitTheta$sigmaThetaType <- getSigmaThetaType(sigmaThetaExpr)

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