# NOT RUN {
data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
model <- latrend(method, latrendData, nClusters = 3)
if (require("ggplot2")) {
plotClusterTrajectories(model)
# show assigned trajectories
plotClusterTrajectories(model, trajectories = TRUE)
# show 95th percentile observation interval
plotClusterTrajectories(model, trajectories = "95pct")
# show observation standard deviation
plotClusterTrajectories(model, trajectories = "sd")
# show observation standard error
plotClusterTrajectories(model, trajectories = "se")
# show observation range
plotClusterTrajectories(model, trajectories = "range")
}
# }
Run the code above in your browser using DataLab