R help - Mar 2005 - how to test for equality of covariance Matrices in lda

when  using  the two-group discriminant analysis,we need to test for equality of
covariance Matrices in lda.as whenm we formed our estimate of the within-group
covariance matrix by pooling across groups,we implicitly assumed that the
covariance structure was the same across groups.so it seems important the test
the equality.but i can not find function in R to do these.