R/cov_clm__sigmaThetaExpr_viewer__simulateFitList.R

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

simulateFitList <- function(sigmaThetaExpr, numWaves) {
  fit <- list()

  if (is.character(sigmaThetaExpr)) {
    fit$info$T <- numWaves
  } else {
    fit$info$T <- sqrt(length(sigmaThetaExpr$expr))
  }

  return(fit)
}