# NOT RUN {
library(survPen)
# standard spline of time with 10 unspecified knots
smooth.spec(time)
# tensor of time and age with 5*5 specified knots
smooth.s <- smooth.spec(time,age,knots=list(time=seq(0,5,length=5),age=seq(20,80,length=5)),
option="tensor")
# }
Run the code above in your browser using DataLab