R/1.6.transformResponseToWide.R

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

transformResponseToWide <- function(modelComponents) {
  wideResponse <- modelComponents$response %>%
    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(-id)

  return(wideResponse)
}