In lampk/Lmisc: Miscellaneous functions from LamPK

## load required libraries and functions
## set working directory
setwd("...")

## 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(getwd(), "Data", "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
tmp <- sasxport.get(file = file.path(getwd(), "Data"), method = "csv")
for (i in 1:length(names(tmp))){
  assign(names(tmp[i]), tmp[[names(tmp[i])]])
}
rm(i, tmp)

## merge randomization list with data