ARM A ARM B ARM C
(N=134) (N=134) (N=132)
———————————————————————————————————————————————————————————————————————————
Total Bilirubin <= 2xULN
ALT >3xULN at 2 Visits 25/134 (18.7%) 20/134 (14.9%) 27/132 (20.5%)
AST >3xULN at 2 Visits 22/134 (16.4%) 14/134 (10.4%) 37/132 (28.0%)
Total Bilirubin > 2xULN
ALT >3xULN at 2 Visits 26/134 (19.4%) 31/134 (23.1%) 23/132 (17.4%)
AST >3xULN at 2 Visits 30/134 (22.4%) 27/134 (20.1%) 26/132 (19.7%)
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 25/134 (18.7%) 20/134 (14.9%) 27/132 (20.5%)
AST >3xULN at 2 Visits 22/134 (16.4%) 14/134 (10.4%) 37/132 (28.0%)
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("BL2AL2CB", "BL2AS2CB", "BG2AL2CB", "BG2AS2CB", "B2A2L2CB", "B2A2S2CB", "B2A5L2CB", "B2A5S2CB" )) %>%mutate(PARAMCAT =case_when( PARAMCD %in%c("BL2AL2CB", "BL2AS2CB") ~"Total Bilirubin <= 2xULN", PARAMCD %in%c("BG2AL2CB", "BG2AS2CB") ~"Total Bilirubin > 2xULN", PARAMCD %in%c("B2A2L2CB", "B2A2S2CB") ~"Total Bilirubin > 2xULN and Alkaline Phosphatase <= 2xULN", PARAMCD %in%c("B2A5L2CB", "B2A5S2CB") ~"Total Bilirubin > 2xULN and Alkaline Phosphatase <= 5xULN" )) %>%mutate(AVALC_FORMAT =case_when( PARAMCD %in%c("BL2AL2CB", "BG2AL2CB", "B2A2L2CB", "B2A5L2CB") & AVALC =="Y"~"ALT >3xULN at 2 Visits", PARAMCD %in%c("BL2AS2CB", "BG2AS2CB", "B2A2S2CB", "B2A5S2CB") & 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)