library(dplyr)
library(admiraldev)
library(admiral)
library(tibble)
input <- tribble(
~USUBJID, ~FAOBJ, ~FATESTCD, ~FATPTREF, ~AVAL, ~FATPT, ~PARAMCD,
"ABC101", "REDNESS", "DIAMETER", "VACC 1", 10, "DAY 1", "DIARE",
"ABC101", "REDNESS", "DIAMETER", "VACC 1", 7, "DAY 2", "DIARE",
"ABC101", "REDNESS", "DIAMETER", "VACC 2", 3, "DAY 1", "DIARE",
"ABC101", "REDNESS", "DIAMETER", "VACC 2", 8, "DAY 2", "DIARE",
"ABC101", "FATIQUE", "SEV", "VACC 1", 1, "DAY 1", "SEVFAT",
"ABC101", "FATIQUE", "SEV", "VACC 1", 1, "DAY 2", "SEVFAT",
"ABC101", "FATIQUE", "SEV", "VACC 2", 2, "DAY 1", "SEVFAT",
"ABC101", "FATIQUE", "SEV", "VACC 2", 3, "DAY 2", "SEVFAT"
)
derive_vars_max_flag(
dataset = input,
flag1 = "ANL01FL",
flag2 = "ANL02FL"
)
derive_vars_max_flag(
dataset = input,
flag1 = NULL,
flag2 = "ANL02FL"
)
derive_vars_max_flag(
dataset = input,
flag1 = "ANL01FL",
flag2 = NULL
)
Run the code above in your browser using DataLab