# NOT RUN {
require(mmm)
data(multiLongGaussian)
str(multiLongGaussian)
## Data with continous resposes
dt <- lmestData(data = multiLongGaussian, id = "ID")
str(dt)
## Summary of each variable and for each time
summary(dt)
## Summary of each variable
summary(dt, type = "cross")
## Summary of each variable by time
summary(dt, type = "year")
plot(dt)
plot(dt, typePlot = "sh")
#######################
# }
# NOT RUN {
data("data_criminal_sim")
dt1 <- lmestData(data = data_criminal_sim, id = "id", time = "time")
str(dt1)
summary(dt1, varType = rep("d",ncol(dt1$Y)))
dt2 <- lmestData(data = data_criminal_sim, id = "id", time = "time",
responsesFormula = y1 + y2 ~ y3, latentFormula = ~ y7 + y8 | y9 + y10)
str(dt2)
## Summary for responses, covariates on the manifest distribution,
## covariates on intial and transition probabilities
summary(dt2, dataSummary = "responses",varType = rep("d",ncol(dt2$Y)))
summary(dt2, dataSummary = "manifest",varType = rep("d",ncol(dt2$Xmanifest)))
summary(dt2, dataSummary = "initial",varType = rep("d",ncol(dt2$Xinitial)))
summary(dt2, dataSummary = "transition",varType = rep("d",ncol(dt2$Xtrans)))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab