# NOT RUN {
# Example based on multivariate longitudinal continuous data
# load data
require(mmm)
data(multiLongGaussian)
TT=4
res = long2matrices(multiLongGaussian$ID,X=cbind(multiLongGaussian$X,multiLongGaussian$time),
Y=cbind(multiLongGaussian$resp1, multiLongGaussian$resp2))
Y = res$YY
X1 =res$XX[,1,]
X2 =res$XX[,2:TT,]
# estimate the model
est = est_lm_cov_latent_cont(Y,X1,X2,k=3,output=TRUE)
out = bootstrap_lm_cov_latent_cont(X1,X2,Mu=est$Mu,Si=est$Si,Be=est$Be,Ga=est$Ga,B=1000)
# }
Run the code above in your browser using DataLab