# NOT RUN {
ctr <- theophylline()
dx <- ctr %>% get_data("eta")
dx <- dx[,EFFECT:=factor(
EFFECT,levels=c("ka", "V", "Cl"),
labels=c("Concentration","Volume","Clearance"))]
## update existing data set
ctr %>% set_data(eta=dx)
## or create a new data set
ctr %>% set_data(eta_long=dx)
# }
Run the code above in your browser using DataLab