# NOT RUN {
data(latrendData)
model <- latrend(lcMethodLcmmGMM(
fixed = Y ~ Time, mixture = ~ Time,
id = "Id", time = "Time"), latrendData)
predFitted <- predict(model) # same result as fitted(model)
# Cluster trajectory of cluster A
predCluster <- predict(model, newdata = data.frame(Cluster = "A", Time = time(model)))
# Prediction for id S1 given cluster A membership
predId <- predict(model, newdata = data.frame(Cluster = "A", Id = "S1", Time = time(model)))
# Prediction matrix for id S1 for all clusters
predIdAll <- predict(model, newdata = data.frame(Id = "S1", Time = time(model)))
# }
Run the code above in your browser using DataLab