lmkmMethod <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
lmkmModel <- latrend(lmkmMethod, latrendData)
rngMethod <- lcMethodRandom("Y", id = "Id", time = "Time")
rngModel <- latrend(rngMethod, latrendData)
lcModels(lmkmModel, rngModel)
lcModels(defaults = c(lmkmModel, rngModel))
Run the code above in your browser using DataLab