## Not run:
# data(kidneySimTimeGroup)
# # running for samples in group 1
# G1 <- which(kidneySimTimeGroup$group=="G1")
# testLMMSplineTG<- lmmSpline(data=kidneySimTimeGroup$data[G1,],
# time=kidneySimTimeGroup$time[G1],
# sampleID=kidneySimTimeGroup$sampleID[G1])
# summary(testLMMSplineTG)## End(Not run)
Run the code above in your browser using DataLab