data(latrendData)
if (require("funFEM") && require("fda")) {
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