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