h1 <- hist(runif(100), plot=FALSE)
h2 <- hist(runif(100), plot=FALSE)
minkowski.dist(h1, h2, 1)
minkowski.dist(h1, h2, 2)
minkowski.dist(h1, h2, 3)
intersect.dist(h1, h2)
kl.divergence(h1, h2)
jeffrey.divergence(h1, h2)
Run the code above in your browser using DataLab