data(data_long_cont)
str(data_long_cont)
## Data with continous resposes
dt <- lmestData(data = data_long_cont, id = "id",time="time")
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")
#######################
if (FALSE) {
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)))
}
Run the code above in your browser using DataLab