data(ncgsL, package = "LMMstar")
ncgsL$group <- relevel(ncgsL$group, "placebo")
## baseline adjustment 1
ncgsL$treat <- baselineAdjustment(ncgsL, variable = "group",
repetition= ~ visit|id, constrain = 1)
table(treat = ncgsL$treat, visit = ncgsL$visit, group = ncgsL$group)
ncgsL$treattime <- baselineAdjustment(ncgsL, variable = "group",
repetition= ~ visit|id, constrain = 1, collapse.time = ".")
table(treattime = ncgsL$treattime, visit = ncgsL$visit, group = ncgsL$group)
## baseline adjustment 2
ncgsL$treat2 <- baselineAdjustment(ncgsL, variable = "group",
new.level = "baseline",
repetition= ~ visit|id, constrain = 1)
table(treat = ncgsL$treat2, visit = ncgsL$visit, group = ncgsL$group)
ncgsL$treattime2 <- baselineAdjustment(ncgsL, variable = "group",
new.level = "baseline",
repetition= ~ visit|id, constrain = 1, collapse.time = ".")
table(treattime = ncgsL$treattime2, visit = ncgsL$visit, group = ncgsL$group)
Run the code above in your browser using DataLab