# NOT RUN {
# }
# NOT RUN {
require(mmm)
data(multiLongGaussian)
t <- rep(1:4, times = max(multiLongGaussian$ID))
multiLongGaussian <- data.frame(t = t, multiLongGaussian)
est <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
latentFormula = ~ X + time,
index = c("ID", "t"),
data = multiLongGaussian,
k = 3)
out <- drawLMlatentcont(est = est,format = "matrices", seed = 4321)
out1 <- drawLMlatentcont(latentFormula = ~ X + time,data = multiLongGaussian,
index = c("ID", "t"),
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