# Sample data
data(uciCT)
# Normalize desired subset
X <- zscore(CharTraj[1:5])
# Obtain centroid series
C <- shape_extraction(X)
# Result
matplot(do.call(cbind, X),
type = "l", col = 1:5)
points(C)
Run the code above in your browser using DataLab