if (FALSE) {
data(data_long_cont)
est <- lmestCont(responsesFormula = Y1 + Y2 + Y3~ NULL,
latentFormula = ~ X1 + X2,
index = c("id", "time"),
data = data_long_cont,
k = 3)
out <- drawLMlatentcont(est = est,format = "matrices", seed = 4321)
out1 <- drawLMlatentcont(latentFormula = ~ X1 + X2, data = data_long_cont,
index = c("id", "time"),
Mu = est$Mu,Si = est$Si,
Be = est$Be,Ga = est$Ga, fort=TRUE, seed = 4321, format = "matrices")
}
Run the code above in your browser using DataLab