# NOT RUN {
library(funFEM)
library(fda)
data(latrendData)
method <- lcMethodFunFEM("Y", id = "Id", time = "Time", nClusters = 3)
model <- latrend(method, latrendData)
method <- lcMethodFunFEM("Y",
basis = function(time) {
create.bspline.basis(time,
nbasis = 10, norder = 4)
})
# }
Run the code above in your browser using DataLab