powered by
hellingerDistance(x,y) squaredHellingerDistance(x,y) symmetricAlphaDivergence(x,y)
codebook
x <- codebook(c(sin(1:100)),m=3) y <- codebook(c(sin(1:100*0.1)),m=3) hellingerDistance(x,y)
Run the code above in your browser using DataLab