if (FALSE) {
#res.segclust is a result of a segmentation-clustering algorithm
param <- res.segclust$param[["3 class"]]
nseg = 10
out <- stat_segm(data, diag.var = c("dist","angle"),
order.var = "dist", param = param, nseg=nseg, seg.type = "segclust")
}
Run the code above in your browser using DataLab