data(uciCT)
# Assuming this was generated by some clustering procedure
centroids <- CharTraj[seq(1L, 100L, 5L)]
cluster <- unclass(CharTrajLabels)
pc_obj <- new("PartitionalTSClusters",
type = "partitional", datalist = CharTraj,
centroids = centroids, cluster = cluster,
distance = "sbd", centroid = "dba",
control = partitional_control(),
args = tsclust_args(cent = list(window.size = 8L, norm = "L2")))
fc_obj <- new("FuzzyTSClusters",
type = "fuzzy", datalist = CharTraj,
centroids = centroids, cluster = cluster,
distance = "sbd", centroid = "fcm",
control = fuzzy_control())
fc_obj
Run the code above in your browser using DataLab