if (FALSE) {
m <- hlme(fixed = Y ~ Time, mixture = ~1, random = ~1, subject = "ID",
ng = 2, cor = BM(Time), data = data_hlme, B = c(0,20,30,-1,5,2,0.1))
predictCor(m, newdata = data_hlme[1:3, ], predtimes = seq(0, 5, 0.5))
}
Run the code above in your browser using DataLab