# NOT RUN {
data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time", nClusters = 3)
lmkm <- latrend(method, data = latrendData)
formula(lmkm) # Y ~ Time
kml <- latrend(lcMethodKML("Y", id = "Id", time = "Time"), latrendData)
formula(kml) # Y ~ 0
# }
Run the code above in your browser using DataLab