data(latrendData)
method <- lcMethodLMKM(Y ~ Time, id = "Id", time = "Time")
bootModels <- latrendBoot(method, latrendData, samples = 10)
bootMAE <- metric(bootModels, name = "MAE")
mean(bootMAE)
sd(bootMAE)
Run the code above in your browser using DataLab