R/1.2.1.main.R

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

fitInit <- function(individuals, sigma) {
  fit <- list()
  fit$info <- list(
    N = attr(individuals, "N"),
    T = attr(individuals, "T"),
    Q = attr(individuals, "Q")
  )
  fit$individuals <- individuals
  fit$sigma <- styleSigma(sigma, fit$info$T)

  return(fit)
}