# NOT RUN {
library(magrittr)
library(dplyr)
data(events)
x <- events
x %<>% filter(CMT == 2) %>% select(-EVID,-CMT,-AMT)
x %>% fold(USUBJID,TIME, meta = list(DV ~ BLQ, DV ~ LLOQ), simplify = FALSE) %>% simplify
# }
Run the code above in your browser using DataLab