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