# 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