# NOT RUN {
# Example based on multivariate longitudinal continuous data
# load data
require(mmm)
data(multiLongGaussian)
res <- long2matrices(multiLongGaussian$ID, X = cbind(multiLongGaussian$X, multiLongGaussian$time),
Y = cbind(multiLongGaussian$resp1, multiLongGaussian$resp2))
Y <- res$YY
n <- dim(Y)[1]
# fit of the Basic LM model for continuous outcomes
k <- 3
out1 <- est_lm_basic_cont(Y, k, mod = 1)
out2 <- bootstrap_lm_basic_cont(out1$piv, out1$Pi, out1$Mu, out1$Si, n, mod = 1, B = 1000)
# }
Run the code above in your browser using DataLab