## Not run:
# data(uciCT)
#
# set.seed(832)
# GAKd <- proxy::dist(zscore(CharTraj), method = "gak",
# pairwise = TRUE, window.size = 18L)
#
# # Obtained estimate of sigma
# sigma <- attr(GAKd, "sigma")
#
# # Use value for clustering
# dtwclust(CharTraj, k = 20L,
# distance = "gak", centroid = "shape",
# sigma = sigma,
# control = list(trace = TRUE,
# window.size = 18L))
# ## End(Not run)
Run the code above in your browser using DataLab