if (FALSE) {
data(uciCT)
# See "GAK" documentation
fam <- new("tsclustFamily", dist = "gak")
# This is done with symmetric optimizations, regardless of control$symmetric
crossdist <- fam@dist(CharTraj, window.size = 18L)
# This is done without symmetric optimizations, regardless of control$symmetric
crossdist <- fam@dist(CharTraj, CharTraj, window.size = 18L)
# For non-dtwclust distances, symmetric optimizations only apply
# with an appropriate control AND a single data argument:
fam <- new("tsclustFamily", dist = "dtw",
control = partitional_control(symmetric = TRUE))
fam@dist(CharTraj[1L:5L])
# If you want the fuzzy family, use fuzzy = TRUE
ffam <- new("tsclustFamily", control = fuzzy_control(), fuzzy = TRUE)
}
Run the code above in your browser using DataLab