# NOT RUN {
require(mmm)
data(multiLongGaussian)
t <- rep(1:4, times = max(multiLongGaussian$ID))
multiLongGaussian <- data.frame(t = t, multiLongGaussian)
# Basic LM model
out <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
index = c("ID", "t"),
data = multiLongGaussian,
k = 3,
modBasic = 1,
tol = 10^-5)
out
summary(out)
# Basic LM model with model selection using BIC
out1 <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
index = c("ID", "t"),
data = multiLongGaussian,
k = 1:5,
modBasic = 1,
tol = 10^-5)
out1
out1$Bic
# Basic LM model with model selection using AIC
out2 <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
index = c("ID", "t"),
data = multiLongGaussian,
k = 1:5,
modBasic = 1,
modSel = "AIC",
tol = 10^-5)
out2
out2$Aic
# LM model with covariates in the latent model
out3 <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
latentFormula = ~ X + time,
index = c("ID", "t"),
data = multiLongGaussian,
k = 3,
output = TRUE)
out3
summary(out3)
out4 <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
latentFormula = ~ X + time | X + time,
index = c("ID", "t"),
data = multiLongGaussian,
k = 3,
output = TRUE)
out4
summary(out4)
# }
Run the code above in your browser using DataLab