P <- rnorm(7)
Q <- rnorm(6)
### Function from Eiter and Mannila
distFrechetRec(P,Q)
### Optimized function
distFrechetR(P,Q)
### Function compiled in C
distFrechet(P,Q)
### Frechet using sum instead of max.
distFrechet(P,Q,method="sum")
### Frechet using "manhattan" distance
distFrechetR(P,Q,Fdist=function(x)dist(x,method="manhattan"))
Run the code above in your browser using DataLab