powered by
Computes the geodesic distance between two SRVFs on the Hilbert sphere
get_hilbert_sphere_distance(q1fun, q2fun)
A numeric value storing the geodesic distance between the two SRVFs.
A function that takes a numeric vector \(s\) of values in \([0, 1]\) as input and returns the values of the first SRVF at \(s\).
A function that takes a numeric vector \(s\) of values in \([0, 1]\) as input and returns the values of the second SRVF at \(s\).
q1 <- curve2srvf(beta[, , 1, 1]) q2 <- curve2srvf(beta[, , 1, 2]) q1p <- to_hilbert_sphere(q1) q2p <- to_hilbert_sphere(q2) get_hilbert_sphere_distance(q1p, q2p)
Run the code above in your browser using DataLab