# NOT RUN {
library(survPen)
# standard spline of time with 4 knots (so we get a design matrix with 3 columns
# because of centering constraint)
data <- data.frame(time=seq(0,5,length=100))
smooth.c <- smooth.cons("time",knots=list(c(0,1,3,5)),df=4,option="smf",
data.spec=data,name="smf(time)")
# }
Run the code above in your browser using DataLab