R/2.10.simulateFitList.R

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

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

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

  return(fit)
}