Bhattacharyya distance metric

I need to use the Bhattacharyya distance metric to determine population
separation. Has anyone written a Bhattacharyya distance metric function in
R?

Something like this ( I think it's correct ):

--%<---
DBhat <- function(X1,X2){
# define means
mX1 <- mean(X1)
mX2 <- mean(X2)

# define difference of means
mDiff <- mX1 - mX2

# define cov
cvX1 <- cov(X1)
cvX2 <- cov(X2)

# define halfsum of cv's
p <- (cvX1+cvX2)/2

# the equation
0.125 * t(mDiff) * p^(-1) * mDiff + 0.5 * log10( det(p) /
sqrt( det(cvX1) * det(cvX2) ))
--%<---

A related thread (in grass-stats):
http://www.mail-archive.com/grass-stats at lists.osgeo.org/msg00183.html

Regards, Nikos