## load required libraries and functions ## fake or real analysis ## (T for all analysis based on the dummy (fake) randomization list; set to F for the real analysis) dummy <- TRUE ## import randomization list randolist <- read.csv(file.path("Data", "RandomizationList", "xxx.csv")) arm_levels <- ifelse(dummy == TRUE, paste("Dummy", LETTERS[1:length(unique(randolist$arm))]), unique(randolist$arm)) randolist$arm <- factor(randolist$arm, levels = arm_levels) ## import study data load(file.path("Data", "InterimData", "xxx.Rdata")) ## merge randomization list with data
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.