ARM A ARM B ARM C
(N=134) (N=134) (N=132)
———————————————————————————————————————————————————————————————————————————
Total Bilirubin <= 2xULN
ALT >3xULN at 2 Visits 20/134 (14.9%) 21/134 (15.7%) 20/132 (15.2%)
AST >3xULN at 2 Visits 30/134 (22.4%) 25/134 (18.7%) 27/132 (20.5%)
Total Bilirubin > 2xULN
ALT >3xULN at 2 Visits 24/134 (17.9%) 32/134 (23.9%) 24/132 (18.2%)
AST >3xULN at 2 Visits 33/134 (24.6%) 29/134 (21.6%) 25/132 (18.9%)
Experimental use!
WebR is a tool allowing you to run R code in the web browser. Modify the code below and click run to see the results. Alternatively, copy the code and click here to open WebR in a new tab.
ARM A ARM B ARM C
(N=134) (N=134) (N=132)
———————————————————————————————————————————————————————————————————————————
Total Bilirubin <= 2xULN
ALT >3xULN at 2 Visits 20/134 (14.9%) 21/134 (15.7%) 20/132 (15.2%)
AST >3xULN at 2 Visits 30/134 (22.4%) 25/134 (18.7%) 27/132 (20.5%)
Experimental use!
WebR is a tool allowing you to run R code in the web browser. Modify the code below and click run to see the results. Alternatively, copy the code and click here to open WebR in a new tab.
Code
library(dplyr)library(tern)adsl <- random.cdisc.data::cadsladhy <- random.cdisc.data::cadhyadhy_liver <- adhy %>%filter(PARAMCD %in%c("BL2AL2CU", "BL2AS2CU", "BG2AL2CU", "BG2AS2CU", "B2A2L2CU", "B2A2S2CU", "B2A5L2CU", "B2A5S2CU" )) %>%mutate(PARAMCAT =case_when( PARAMCD %in%c("BL2AL2CU", "BL2AS2CU") ~"Total Bilirubin <= 2xULN", PARAMCD %in%c("BG2AL2CU", "BG2AS2CU") ~"Total Bilirubin > 2xULN", PARAMCD %in%c("B2A2L2CU", "B2A2S2CU") ~"Total Bilirubin > 2xULN and Alkaline Phosphatase <= 2xULN", PARAMCD %in%c("B2A5L2CU", "B2A5S2CU") ~"Total Bilirubin > 2xULN and Alkaline Phosphatase <= 5xULN" )) %>%mutate(AVALC_FORMAT =case_when( PARAMCD %in%c("BL2AL2CU", "BG2AL2CU", "B2A2L2CU", "B2A5L2CU") & AVALC =="Y"~"ALT >3xULN at 2 Visits", PARAMCD %in%c("BL2AS2CU", "BG2AS2CU", "B2A2S2CU", "B2A5S2CU") & AVALC =="Y"~"AST >3xULN at 2 Visits",TRUE~"Criteria not met" ))# Ensure character variables are converted to factors and empty strings and NAs are explicit missing levels.adsl <-df_explicit_na(adsl)anl <-df_explicit_na(adhy_liver)