if (FALSE) {
data("trajdata")
trajdata.noGrp <- trajdata[, -which(colnames(trajdata) == "Group")] #remove the Group column
m = trajMeasures(trajdata.noGrp, ID = TRUE, measures = 1:20)
s2.4 <- trajClusters(m, nclusters = 4)
trajReduce(m, s2.4)
}
Run the code above in your browser using DataLab