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