set.seed(10)
dL <- sampleRem(250, n.times = 3, format = "long")
e.mlmm <- mlmm(Y~X1+X2+X6, repetition = ~visit|id, data = dL,
by = "X4", effects = "X1=0", structure = "CS")
weights(e.mlmm, method = "average")
weights(e.mlmm, method = "pool.fixse")
weights(e.mlmm, method = "pool.se")
weights(e.mlmm, method = "pool.gls")
Run the code above in your browser using DataLab