## Not run:
# data(kidneySimTimeGroup)
# # run lmmSpline on the samples from group 1 only
# G1 <- which(kidneySimTimeGroup$group=="G1")
# testLMMSplineTG<- lmmSpline(data=kidneySimTimeGroup$data[G1,],
# time=kidneySimTimeGroup$time[G1],
# sampleID=kidneySimTimeGroup$sampleID[G1],
# basis="p-spline",keepModels=T)
# testLMMSplineTGDeri <- deriv(testLMMSplineTG)
# summary(testLMMSplineTGDeri)## End(Not run)
Run the code above in your browser using DataLab