# NOT RUN {
### Plot of basic LM model
data("data_SRHS_long")
SRHS <- data_SRHS_long[1:2400,]
# Categories rescaled to vary from 0 (<U+201C>poor<U+201D>) to 4 (<U+201C>excellent<U+201D>)
SRHS$srhs <- 5 - SRHS$srhs
out <- lmest(responsesFormula = srhs ~ NULL,
index = c("id","t"),
data = SRHS,
k = 1:3,
start = 1,
modBasic = 1,
seed = 123)
out
summary(out)
plot(out)
### Plot of basic LM model for continuous responses
require(mmm)
data(multiLongGaussian)
t <- rep(1:4, times = max(multiLongGaussian$ID))
multiLongGaussian <- data.frame(t = t, multiLongGaussian)
out1 <- lmestCont(responsesFormula = resp1 + resp2 ~ NULL,
index = c("ID", "t"),
data = multiLongGaussian,
k = 1:5,
modBasic=1,
tol=10^-5)
plot(out1,what="density")
plot(out1,what="density",components=c(1,3))
# }
Run the code above in your browser using DataLab