## Not run:
# data(kidneySimTimeGroup)
# G1 <- which(kidneySimTimeGroup$group=="G1")
# testLMMSpline<- lmmSpline(data=kidneySimTimeGroup$data[G1,],
# time=kidneySimTimeGroup$time[G1],
# sampleID=kidneySimTimeGroup$sampleID[G1],keepModels=T)
# mat.predict <- predict(testLMMSpline, timePredict=c(seq(1,4, by=0.5)))## End(Not run)
Run the code above in your browser using DataLab