A: Drug X B: Placebo C: Combination
(N=134) (N=134) (N=132)
—————————————————————————————————————————————————————————————————————————————————————
Patients with event (%) 58 (43.3%) 58 (43.3%) 69 (52.3%)
Earliest contributing event
Death 58 58 69
Patients without event (%) 76 (56.7%) 76 (56.7%) 63 (47.7%)
Time to Event (Months)
Median NA NA 9.4
95% CI (9.3, NA) (9.4, NA) (7.6, NA)
25% and 75%-ile 5.6, NA 5.6, NA 5.0, NA
Range 0.5 to 16.4 {1} 0.9 to 16.3 {1} 0.5 to 16.3 {1}
Unstratified Analysis
p-value (log-rank) 0.9998 0.1541
Hazard Ratio 1.00 1.29
95% CI (0.69, 1.44) (0.91, 1.83)
6 Months
Patients remaining at risk 97 97 90
Event Free Rate (%) 72.39 72.39 68.18
95% CI (64.82, 79.96) (64.82, 79.96) (60.24, 76.13)
Difference in Event Free Rate 0.00 -4.21
95% CI (-10.71, 10.71) (-15.18, 6.77)
p-value (Z-test) 1.0000 0.4525
12 Months
Patients remaining at risk 49 48 37
Event Free Rate (%) 56.72 56.72 47.73
95% CI (48.33, 65.11) (48.33, 65.11) (39.21, 56.25)
Difference in Event Free Rate 0.00 -8.99
95% CI (-11.86, 11.86) (-20.95, 2.97)
p-value (Z-test) 1.0000 0.1406
—————————————————————————————————————————————————————————————————————————————————————
{1} - Censored observation: range maximum
—————————————————————————————————————————————————————————————————————————————————————
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.
A: Drug X B: Placebo C: Combination
(N=134) (N=134) (N=132)
——————————————————————————————————————————————————————————————————————————————————
Patients with event (%) 58 (43.3%) 58 (43.3%) 69 (52.3%)
Patients without event (%) 76 (56.7%) 76 (56.7%) 63 (47.7%)
Time to Event (Months)
Median NA NA 9.4
95% CI (9.3, NA) (9.4, NA) (7.6, NA)
25% and 75%-ile 5.6, NA 5.6, NA 5.0, NA
Range 0.5 to 16.4 {1} 0.9 to 16.3 {1} 0.5 to 16.3 {1}
Unstratified Analysis
p-value (log-rank) 0.9998 0.1541
Hazard Ratio 1.00 1.29
95% CI (0.69, 1.44) (0.91, 1.83)
6 Months
Patients remaining at risk 97 97 90
Event Free Rate (%) 72.39 72.39 68.18
95% CI (64.82, 79.96) (64.82, 79.96) (60.24, 76.13)
12 Months
Patients remaining at risk 49 48 37
Event Free Rate (%) 56.72 56.72 47.73
95% CI (48.33, 65.11) (48.33, 65.11) (39.21, 56.25)
——————————————————————————————————————————————————————————————————————————————————
{1} - Censored observation: range maximum
——————————————————————————————————————————————————————————————————————————————————
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.
A: Drug X B: Placebo C: Combination
(N=134) (N=134) (N=132)
———————————————————————————————————————————————————————————————————————————————————
Patients with event (%) 58 (43.3%) 58 (43.3%) 69 (52.3%)
Earliest contributing event
Death 58 58 69
Patients without event (%) 76 (56.7%) 76 (56.7%) 63 (47.7%)
Time to Event (Months)
Median NA NA 9.4
90% CI (9.6, NA) (9.6, NA) (7.7, NA)
25% and 75%-ile 5.6, NA 5.6, NA 5.0, NA
Range 0.5 to 16.4 {1} 0.9 to 16.3 {1} 0.5 to 16.3 {1}
Unstratified Analysis
p-value (log-rank) 0.9998 0.1541
Hazard Ratio 1.00 1.29
95% CI (0.69, 1.44) (0.91, 1.83)
12 Months
Patients remaining at risk 49 48 37
Event Free Rate (%) 56.72 56.72 47.73
90% CI (49.37, 63.41) (49.37, 63.41) (40.42, 54.66)
Difference in Event Free Rate 0.00 -8.99
97.5% CI (-13.57, 13.57) (-22.66, 4.69)
p-value (Z-test) 1.0000 0.1406
———————————————————————————————————————————————————————————————————————————————————
{1} - Censored observation: range maximum
———————————————————————————————————————————————————————————————————————————————————
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.
A: Drug X B: Placebo C: Combination
(N=134) (N=134) (N=132)
—————————————————————————————————————————————————————————————————————————————————————
Patients with event (%) 58 (43.3%) 58 (43.3%) 69 (52.3%)
Earliest contributing event
Death 58 58 69
Patients without event (%) 76 (56.7%) 76 (56.7%) 63 (47.7%)
Time to Event (Months)
Median NA NA 9.4
95% CI (9.3, NA) (9.4, NA) (7.6, NA)
25% and 75%-ile 5.6, NA 5.6, NA 5.0, NA
Range 0.5 to 16.4 {1} 0.9 to 16.3 {1} 0.5 to 16.3 {1}
Unstratified Analysis
p-value (log-rank) 0.9998 0.1541
Hazard Ratio 1.00 1.29
95% CI (0.69, 1.44) (0.91, 1.83)
Stratified Analysis
p-value (log-rank) 0.9978 0.1733
Hazard Ratio 1.00 1.27
95% CI (0.69, 1.44) (0.90, 1.81)
12 Months
Patients remaining at risk 49 48 37
Event Free Rate (%) 56.72 56.72 47.73
95% CI (48.33, 65.11) (48.33, 65.11) (39.21, 56.25)
Difference in Event Free Rate 0.00 -8.99
95% CI (-11.86, 11.86) (-20.95, 2.97)
p-value (Z-test) 1.0000 0.1406
—————————————————————————————————————————————————————————————————————————————————————
{1} - Censored observation: range maximum
—————————————————————————————————————————————————————————————————————————————————————
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.
A: Drug X B: Placebo C: Combination
(N=134) (N=134) (N=132)
—————————————————————————————————————————————————————————————————————————————————————
Patients with event (%) 58 (43.3%) 58 (43.3%) 69 (52.3%)
Earliest contributing event
Death 58 58 69
Patients without event (%) 76 (56.7%) 76 (56.7%) 63 (47.7%)
Time to Event (Months)
Median NA NA 9.4
95% CI (9.3, NA) (9.4, NA) (7.6, NA)
25% and 75%-ile 5.6, NA 5.6, NA 5.0, NA
Range 0.5 to 16.4 {1} 0.9 to 16.3 {1} 0.5 to 16.3 {1}
Unstratified Analysis
p-value (log-rank) 0.9998 0.1541
Hazard Ratio 1.00 1.29
95% CI (0.69, 1.44) (0.91, 1.83)
6 Months
Patients remaining at risk 97 97 90
Event Free Rate (%) 72.39 72.39 68.18
95% CI (64.82, 79.96) (64.82, 79.96) (60.24, 76.13)
Difference in Event Free Rate 0.00 -4.21
95% CI (-10.71, 10.71) (-15.18, 6.77)
p-value (Z-test) 1.0000 0.4525
—————————————————————————————————————————————————————————————————————————————————————
{1} - Censored observation: range maximum
—————————————————————————————————————————————————————————————————————————————————————
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.
A: Drug X B: Placebo C: Combination
(N=134) (N=134) (N=132)
—————————————————————————————————————————————————————————————————————————————————————
Patients with event (%) 58 (43.3%) 58 (43.3%) 69 (52.3%)
Earliest contributing event
Death 58 58 69
Patients without event (%) 76 (56.7%) 76 (56.7%) 63 (47.7%)
Time to Event (Months)
Median NA NA 9.4
95% CI (9.3, NA) (9.4, NA) (7.6, NA)
25% and 75%-ile 5.6, NA 5.6, NA 5.0, NA
Range 0.5 to 16.4 {1} 0.9 to 16.3 {1} 0.5 to 16.3 {1}
Unstratified Analysis
p-value (log-rank) 0.9998 0.1541
p-value (wald) 0.9998 0.1552
p-value (likelihood) 0.9998 0.1543
Hazard Ratio 1.00 1.29
95% CI (0.69, 1.44) (0.91, 1.83)
12 Months
Patients remaining at risk 49 48 37
Event Free Rate (%) 56.72 56.72 47.73
95% CI (48.33, 65.11) (48.33, 65.11) (39.21, 56.25)
Difference in Event Free Rate 0.00 -8.99
95% CI (-11.86, 11.86) (-20.95, 2.97)
p-value (Z-test) 1.0000 0.1406
—————————————————————————————————————————————————————————————————————————————————————
{1} - Censored observation: range maximum
—————————————————————————————————————————————————————————————————————————————————————
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(tern)library(dplyr)adsl <- random.cdisc.data::cadsladtte <- random.cdisc.data::cadtte# Ensure that character variables are converted to factors and empty strings and NAs are explicit missing levels.adsl <-df_explicit_na(adsl)adtte <-df_explicit_na(adtte)adtte_f <- adtte %>% dplyr::filter(PARAMCD =="OS") %>% dplyr::mutate(AVAL =day2month(AVAL),is_event = CNSR ==0,is_not_event = CNSR ==1,EVNT1 =factor(case_when( is_event ==TRUE~"Patients with event (%)", is_event ==FALSE~"Patients without event (%)" ),levels =c("Patients with event (%)", "Patients without event (%)") ),EVNTDESC =factor(EVNTDESC) )
library(teal.modules.clinical)## Data reproducible codedata <-teal_data()data <-within(data, { ADSL <- random.cdisc.data::cadsl ADTTE <- random.cdisc.data::cadtte# Ensure character variables are converted to factors and empty strings and NAs are explicit missing levels. ADSL <-df_explicit_na(ADSL) ADTTE <-df_explicit_na(ADTTE)})datanames <-c("ADSL", "ADTTE")datanames(data) <- datanames
Warning: `datanames<-()` was deprecated in teal.data 0.6.1.
ℹ invalid to use `datanames()<-` or `names()<-` on an object of class
`teal_data`. See ?names.teal_data
shinylive allow you to modify to run shiny application entirely in the web browser. Modify the code below and click re-run the app to see the results. The performance is slighly worse and some of the features (e.g. downloading) might not work at all.
#| '!! shinylive warning !!': |#| shinylive does not work in self-contained HTML documents.#| Please set `embed-resources: false` in your metadata.#| standalone: true#| viewerHeight: 800#| editorHeight: 200#| components: [viewer, editor]#| layout: vertical# -- WEBR HELPERS --options(webr_pkg_repos = c("r-universe" = "https://pharmaverse.r-universe.dev", getOption("webr_pkg_repos")))# -- APP CODE --library(teal.modules.clinical)## Data reproducible codedata <- teal_data()data <- within(data, { ADSL <- random.cdisc.data::cadsl ADTTE <- random.cdisc.data::cadtte # Ensure character variables are converted to factors and empty strings and NAs are explicit missing levels. ADSL <- df_explicit_na(ADSL) ADTTE <- df_explicit_na(ADTTE)})datanames <- c("ADSL", "ADTTE")datanames(data) <- datanamesjoin_keys(data) <- default_cdisc_join_keys[datanames]## Reusable Configuration For ModulesADSL <- data[["ADSL"]]ADTTE <- data[["ADTTE"]]arm_ref_comp <- list( ACTARMCD = list( ref = "ARM B", comp = c("ARM A", "ARM C") ), ARM = list( ref = "B: Placebo", comp = c("A: Drug X", "C: Combination") ))## Setup Appapp <- init( data = data, modules = modules( tm_t_tte( label = "Time To Event Table", dataname = "ADTTE", arm_var = choices_selected( variable_choices(ADSL, c("ARM", "ARMCD", "ACTARMCD")), "ARM" ), arm_ref_comp = arm_ref_comp, paramcd = choices_selected( value_choices(ADTTE, "PARAMCD", "PARAM"), "OS" ), strata_var = choices_selected( variable_choices(ADSL, c("SEX", "BMRKR2")), "SEX" ), time_points = choices_selected(c(6, 8), 6), event_desc_var = choices_selected( variable_choices(ADTTE, "EVNTDESC"), "EVNTDESC", fixed = TRUE ) ) ))shinyApp(app$ui, app$server)