library(lubridate)
library(dplyr, warn.conflicts = FALSE)
library(tibble)
set_admiral_options(subject_keys = exprs(STUDYID, USUBJID2))
# Derive a new parameter for measurable disease at baseline
adsl <- tribble(
~USUBJID2,
"1",
"2",
"3"
) %>%
mutate(STUDYID = "XX1234")
tu <- tribble(
~USUBJID2, ~VISIT, ~TUSTRESC,
"1", "SCREENING", "TARGET",
"1", "WEEK 1", "TARGET",
"1", "WEEK 5", "TARGET",
"1", "WEEK 9", "NON-TARGET",
"2", "SCREENING", "NON-TARGET",
"2", "SCREENING", "NON-TARGET"
) %>%
mutate(
STUDYID = "XX1234",
TUTESTCD = "TUMIDENT"
)
derive_param_exist_flag(
dataset_ref = adsl,
dataset_add = tu,
filter_add = TUTESTCD == "TUMIDENT" & VISIT == "SCREENING",
condition = TUSTRESC == "TARGET",
false_value = "N",
missing_value = "N",
set_values_to = exprs(
PARAMCD = "MDIS",
PARAM = "Measurable Disease at Baseline"
)
)
set_admiral_options(signif_digits = 14)
# Derive ANRIND for ADVS
advs <- tribble(
~PARAMCD, ~AVAL, ~ANRLO, ~ANRHI,
"DIABP", 59, 60, 80,
"SYSBP", 120, 90, 130,
"RESP", 21, 8, 20,
)
derive_var_anrind(advs)
Run the code above in your browser using DataLab