# Sample data
data(uciCT)
# Subset of interest, normalized
X <- t(sapply(CharTraj[1:5], zscore))
# Obtain centroid series
C <- shape_extraction(X, znorm = FALSE)
# Result
matplot(t(X), type = "l", col = 1:5)
points(C)
Run the code above in your browser using DataLab