data(data.m)
data(Mvalue)
E.result <- Emas(data.m, Mvalue, id = "ID", x = "x", y = "y",
x.cov = c("age", "gender"),
y.cov = c("age", "gender"),
m.cov = c("age", "gender", "CD8T", "CD4T"),
p.th = 0.1, ini.sims = 100, boot = FALSE, cl.n = 1)
Run the code above in your browser using DataLab