# NOT RUN {
data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
model <- latrend(method, latrendData)
trajectoryAssignments(model)
# assign trajectories at random using weighted sampling
trajectoryAssignments(model, strategy = which.weight)
# }
Run the code above in your browser using DataLab