use previous columns

hta-pharma · Jun 21, 2024 · f0feb93 · f0feb93
1 parent 4f71ab9
commit f0feb93
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/tests/testthat/test-maic_unanchored.R b/tests/testthat/test-maic_unanchored.R
@@ -109,16 +109,21 @@ test_that("test time to event case", {
  use_adsl <- center_ipd(ipd = adsl, agd = target_pop)
 
  #### derive weights
+ cols <- c(
+ "AGE_CENTERED", "AGE_MEDIAN_CENTERED", "AGE_SQUARED_CENTERED",
+ "SEX_MALE_CENTERED", "ECOG0_CENTERED", "SMOKE_CENTERED"
+ )
+ # cols <- grep("_CENTERED$", names(use_adsl))
  match_res <- estimate_weights(
  data = use_adsl,
- centered_colnames = grep("_CENTERED$", names(use_adsl)),
+ centered_colnames = cols,
  start_val = 0,
  method = "BFGS"
  )
 
  match_res_boot <- estimate_weights(
  data = use_adsl,
- centered_colnames = grep("_CENTERED$", names(use_adsl)),
+ centered_colnames = cols,
  start_val = 0,
  method = "BFGS",
  n_boot_iteration = 500,