# Create curves
t <- seq(0, 1, length.out = 100)
X <- matrix(0, 10, 100)
for (i in 1:10) X[i, ] <- sin(2*pi*t + i/5) + rnorm(100, sd = 0.1)
fd <- fdata(X, argvals = t)
# Compute distance based on B-spline coefficients
D <- semimetric.basis(fd, nbasis = 7)
Run the code above in your browser using DataLab