ARM A ARM B ARM C
Parameter (N=134) (N=134) (N=132)
———————————————————————————————————————————————————————————————————————————————————————————
Unadjusted comparison
n 68 73 62
Mean 3.68 5.07 3.09
Difference in Means 1.38 -0.59
95% CI (-2.76, 5.53) (-4.91, 3.73)
p-value 0.5113 0.7873
Adjusted comparison (covariates BASE and STRATA1)
n 68 73 62
Adjusted Mean 4.06 3.57 3.34
Difference in Adjusted Means -0.49 -0.72
95% CI (-3.28, 2.29) (-3.57, 2.12)
p-value 0.7277 0.6165
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::cadsladqs <- random.cdisc.data::cadqs# Ensure character variables are converted to factors and empty strings and NAs are explicit missing levels.adsl <-df_explicit_na(adsl)adqs <-df_explicit_na(adqs)adqs_single <- adqs %>%filter( AVISIT =="WEEK 1 DAY 8", PARAMCD =="FKSI-FWB" ) %>%mutate(CHG =ifelse(BMEASIFL =="Y", CHG, NA))
library(teal.modules.clinical)## Data reproducible codedata <-teal_data()data <-within(data, { ADSL <- random.cdisc.data::cadsl ADQS <- random.cdisc.data::cadqs# Ensure character variables are converted to factors and empty strings and NAs are explicit missing levels. ADSL <-df_explicit_na(ADSL) ADQS <-df_explicit_na(ADQS)})datanames <-c("ADSL", "ADQS")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.