library(magrittr)
set.seed(0)
x <- data.frame(
auc = rnorm(100, mean = 2400, sd = 200),
bmi = rnorm(100, mean = 20, sd = 5),
gen = 0:1
)
x %<>% decorate('auc: [AUC_0-24, ng*h/mL]')
x %<>% decorate('bmi: [Body Mass Index, kg/m^2]')
x %<>% decorate('gen: [Gender, [Male: 1, Female: 0]]')
x %<>% resolve
footnote(x)
footnote(x, auc)
Run the code above in your browser using DataLab