[821] Feature Request: Add weights option to ancova

[yurovska]

Fixes #821

[github-actions]

✅ All contributors have signed the CLA
_{Posted by the CLA Assistant Lite bot.}

[yurovska]

Random example:

adsl <- tern::tern_ex_adsl

adlb <- tern::tern_ex_adlb %>%
  mutate(
    CHG = if_else(AVISITN > 0, AVAL - BASE, NA_real_, NA_real_)
  ) %>%
  filter(
    PARAMCD == "ALT"
    & AVISIT == "WEEK 5 DAY 36"
  )

lyt <- basic_table(show_colcounts = TRUE) %>%
  split_cols_by(
    var = "ARM",
    ref_group = "B: Placebo"
  ) %>%
  split_rows_by(
    var = "PARAMCD",
    labels_var = "PARAM",
    label_pos = "topleft",
    split_label = "Parameter",
    section_div = " "
  ) %>%
  summarize_ancova(
    vars = "CHG",
    variables = list(
      arm = "ARM",
      covariates = c("BASE", "SEX", "ARM")
    ),
    conf_level = 0.95,
    var_labels = "",
    show_labels = "hidden",
    weights_emmeans = "proportional"
  )

build_table(lyt, adlb, alt_counts_df = adsl)

[shajoezhu]

tracking downstream checks at insightsengineering/scda.test#192

[shajoezhu]

hi @yurovska , can you please fix the lintr issue.

[shajoezhu]

Random example:

adsl <- tern::tern_ex_adsl

adlb <- tern::tern_ex_adlb %>%
  mutate(
    CHG = if_else(AVISITN > 0, AVAL - BASE, NA_real_, NA_real_)
  ) %>%
  filter(
    PARAMCD == "ALT"
    & AVISIT == "WEEK 5 DAY 36"
  )

lyt <- basic_table(show_colcounts = TRUE) %>%
  split_cols_by(
    var = "ARM",
    ref_group = "B: Placebo"
  ) %>%
  split_rows_by(
    var = "PARAMCD",
    labels_var = "PARAM",
    label_pos = "topleft",
    split_label = "Parameter",
    section_div = " "
  ) %>%
  summarize_ancova(
    vars = "CHG",
    variables = list(
      arm = "ARM",
      covariates = c("BASE", "SEX", "ARM")
    ),
    conf_level = 0.95,
    var_labels = "",
    show_labels = "hidden",
    weights_emmeans = "proportional"
  )

build_table(lyt, adlb, alt_counts_df = adsl)

i would like also suggest adding this example with an snapshot to the scda.test

[yurovska]

hi @yurovska , can you please fix the lintr issue.

Fixed

[yurovska]

i would like also suggest adding this example with an snapshot to the scda.test

@shajoezhu See my comment within insightsengineering/scda.test#192

[shajoezhu]

lgtm! Thanks a lot @yurovska