data/data_generation.R

In imbi-heidelberg/DescrTab: Creates a table with descriptive statistics

## Data generation for Vignette

# madeUpData <- data.frame(
#   group = factor(sample(c("Treatment", "Control"), 200, replace = T)),
#   gender = factor(sample(c("Female", "Male"), 200, replace=T)),
#   age = sample(15:90, 200, replace = T),
#   blood_hg = stats::runif(200, min = 50, max=150),
#   QoL_score = factor(sample(c("Sad", "Normal", "Happy"), 200, replace=T))
# )

# save(madeUpData, file="./data/madeUpData.RData")