Background

## 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 VAD from file.path("..", "Data", "VAD")
load(file.path("..", "Data", "VAD", "xxx.Rdata"))

## merge randomization list with data

General description

Primary endpoints

Secondary endpoints

Adverse events

Clinical adverse events

Laboratory adverse events

Additional analyses

Appendix



lampk/C306 documentation built on Sept. 11, 2019, 8:03 a.m.