# NOT RUN {
library(magrittr)
x <- data.frame(
ID = 1,
CONC = 1,
RACE = 1,
SEX = 1,
DATE = 1
)
x$ID %<>% structure(label = 'subject identifier')
x$CONC %<>% structure(label = 'concentration', guide = 'ng/mL')
x$RACE %<>% structure(label = 'race', guide = list(white = 0, black = 1, asian = 2))
x$SEX %<>% structure(label = 'sex', guide = list(female = 0, male = 1))
x$DATE %<>% structure(label = 'date', guide = '%Y-%m-%d')
x %>% as_yamlet
x %>% explicit_guide %>% as_yamlet
# }
Run the code above in your browser using DataLab