# NOT RUN {
data(latrendData)
lcMethodKML2 <- function(response = "Y", id = "Id", time = "Time", nClusters = 2, ...) {
lcMethod.call("lcMethodKML", call = stackoverflow::match.call.defaults(),
defaults = c(kml::kml, kml::parALGO),
excludeArgs = c("object", "nbClusters", "parAlgo", "toPlot", "saveFreq"))
}
method <- lcMethodKML2(nClusters = 3)
latrend(method, data = latrendData)
# }
Run the code above in your browser using DataLab