R/clm__setLongModelComponentsToWide____main.R

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

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)
}