R/clm__setLongModelComponentsToWide__transformDesignToWide.R

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

transformDesignToWide <- function(modelComponents, name) {
  wideDesign <- modelComponents[[name]] %>%
    dplyr::mutate(wave = unlist(modelComponents$waves), id = unlist(modelComponents$ids)) %>%
    tidyr::pivot_wider(id_cols = id, names_from = wave, values_from = value, names_prefix = "T") %>%
    dplyr::select(tidyr::last_col())

  return(wideDesign)
}