R/1.6.main.R

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

setLongModelComponentsToWide <- function(modelComponents) {
  wideModelComponents <- list(
    response = transformResponseToWide(modelComponents),
    explanatory = transformExplanatoryToWide(modelComponents),
    weights = transformDesignToWide(modelComponents, "weights"),
    stratum = transformDesignToWide(modelComponents, "stratum"),
    cluster = transformDesignToWide(modelComponents, "cluster")
  )

  return(wideModelComponents)
}