tests/bhattacharyya_dist_001.R

In merkys/MixtureFitting: Fitting of univariate mixture distributions to data using various approaches

library( MixtureFitting )
orig1 = 0.125
dist1 = bhattacharyya_dist( 1, 2, 1, 1 )
orig2 = 1.95606150021424
dist2 = bhattacharyya_dist( 0, 0, 1, 0.01 )
if( all.equal( c( orig1, orig2 ), c( dist1, dist2 ) ) != TRUE ) {
    stop( all.equal( c( orig1, orig2 ), c( dist1, dist2 ) ) )
}