## Not run:
# data(data.simulation)
# # Example 1: use the convinient default to generate knots
# ret <- cSFM.est.parallel(DST$obs, DST$tp, DST$cp, max.knots = 4)
# # AIC vector
# ret$AIC
# # best number of knots
# ret$knots.mat[which.min(ret$AIC), ]
# # Example 2: assign combinations of knots subjectively
# nknots.tp = rbind(c(3,2,1), c(6,5,4))
# nknots.cp = nknots.tp
# ret2 <- cSFM.est.parallel(DST$obs, DST$tp, DST$cp,
# nknots.tp = nknots.tp, nknots.cp = nknots.cp)
# ## End(Not run)
Run the code above in your browser using DataLab