df <- dplyr::tibble(
USUBJID = paste("Subject", c(rep("A", 2), rep("B", 4), rep("C", 2))),
VISIT = paste("Visit", c(1 , 2 , 1 , 1 , 2 , 2 , 2 , 2)),
XXTESTCD = paste("Test", c(1 , 2 , 1 , 2 , 1 , 2 , 1 , 2)),
ND = c("N", "N", "Y", "Y", "N", "N", "Y", "Y")
)
create_STAT(df = df, domain = "XX", nd_ind = "ND", nd_ind_cd = "Y")
Run the code above in your browser using DataLab