lab_data <- data.frame(mod_id=rep(1:3,each=3),
date=rep(c("01/12/17","05/05/18","11/28/16"),each=3),
time=rep(c("1:30","2:30","3:30"),3),
creat=rnorm(9,0.5,0.05))
run_Labs(lab_data, lab.mod.list=list(log_creat=expression(log(creat))))
Run the code above in your browser using DataLab