chore: clean up

Author: Neerajpathak07

lib/node_modules/@stdlib/stats/base/dists/gamma/entropy/README.md

@@ -177,24 +177,6 @@ Evaluates the differential entropy for a gamma distribution with shape parameter
 ```c
 double y = stdlib_base_dists_gamma_entropy( 1.0, 1.0 );
 // returns ~1.0
-
-y = stdlib_base_dists_gamma_entropy( 4.0, 12.0 );
-// returns ~-0.462
-
-y = stdlib_base_dists_gamma_entropy( 8.0, 2.0 );
-// returns ~1.723
-
-y = stdlib_base_dists_gamma_entropy( 1.0, -0.1 );
-// returns NaN
-
-y = stdlib_base_dists_gamma_entropy( -0.1, 1.0 );
-// returns NaN
-
-y = stdlib_base_dists_gamma_entropy( 2.0, NaN );
-// returns NaN
-
-y = stdlib_base_dists_gamma_entropy( NaN, 2.0 );
-* // returns NaN
 ```
 
 The function accepts the following arguments:
@@ -230,17 +212,22 @@ double stdlib_base_dists_gamma_entropy( const double alpha, const double beta );
 #include <stdlib.h>
 #include <stdio.h>
 
+static double random_uniform( const double min, const double max ) {
+    double v = (double)rand() / ( (double)RAND_MAX + 1.0 );
+    return min + ( v*(max-min) );
+}
+
 int main( void ) {
     double alpha;
     double beta;
     double y;
     int i;
 
     for ( i = 0; i < 10; i++ ) {
-        alpha = ( ( (double)rand() / (double)RAND_MAX ) * 10.0 ) + STDLIB_CONSTANT_FLOAT64_EPS;
-        beta = ( ( (double)rand() / (double)RAND_MAX ) * 10.0 ) + STDLIB_CONSTANT_FLOAT64_EPS ;
+        alpha = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
+        beta = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 ) ;
         y = stdlib_base_dists_gamma_entropy( alpha, beta );
-        printf( "α: %1f, β: %1f, h(X;α,β): %lf\n", x, alpha , beta , y );
+        printf( "α: %1f, β: %1f, h(X;α,β): %lf\n", alpha , beta , y );
     }
 }
 ```

lib/node_modules/@stdlib/stats/base/dists/gamma/entropy/benchmark/benchmark.js

@@ -21,7 +21,8 @@
 // MODULES //
 
 var bench = require( '@stdlib/bench' );
-var randu = require( '@stdlib/random/base/randu' );
+var uniform = require( '@stdlib/random/base/uniform' );
+var Float64Array = require( '@stdlib/array/float64' );
 var isnan = require( '@stdlib/math/base/assert/is-nan' );
 var EPS = require( '@stdlib/constants/float64/eps' );
 var pkg = require( './../package.json' ).name;
@@ -36,11 +37,19 @@ bench( pkg, function benchmark( b ) {
 	var y;
 	var i;
 
+	len = 100;
+	alpha = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		alpha[ i ] = uniform( EPS, 10.0 );
+	}
+	beta = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		beta[ i ] = uniform( EPS, 10.0 );
+	}
+
 	b.tic();
 	for ( i = 0; i < b.iterations; i++ ) {
-		alpha = ( randu()*10.0 ) + EPS;
-		beta = ( randu()*10.0 ) + EPS;
-		y = entropy( alpha, beta );
+		y = entropy( alpha[ i%100 ], beta[ i%100 ] );
 		if ( isnan( y ) ) {
 			b.fail( 'should not return NaN' );
 		}

lib/node_modules/@stdlib/stats/base/dists/gamma/entropy/benchmark/benchmark.native.js

@@ -22,7 +22,8 @@
 
 var resolve = require( 'path' ).resolve;
 var bench = require( '@stdlib/bench' );
-var randu = require( '@stdlib/random/base/randu' );
+var uniform = require( '@stdlib/random/base/uniform' );
+var Float64Array = require( '@stdlib/array/float64' );
 var isnan = require( '@stdlib/math/base/assert/is-nan' );
 var tryRequire = require( '@stdlib/utils/try-require' );
 var EPS = require( '@stdlib/constants/float64/eps' );
@@ -45,11 +46,19 @@ bench( pkg+'::native', opts, function benchmark( b ) {
 	var y;
 	var i;
 
+	len = 100;
+	alpha = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		alpha[ i ] = uniform( EPS, 10.0 );
+	}
+	beta = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		beta[ i ] = uniform( EPS, 10.0 );
+	}
+
 	b.tic();
 	for ( i = 0; i < b.iterations; i++ ) {
-		alpha = ( randu()*10.0 ) + EPS;
-		beta = ( randu()*10.0 ) + EPS;
-		y = entropy( alpha, beta );
+		y = entropy( alpha[ i%100 ], beta[ i%100 ] );
 		if ( isnan( y ) ) {
 			b.fail( 'should not return NaN' );
 		}

lib/node_modules/@stdlib/stats/base/dists/gamma/entropy/benchmark/c/benchmark.c

@@ -76,13 +76,15 @@ static double tic( void ) {
 }
 
 /**
-* Generates a random number on the interval [0,1).
+* Generates a random number on the interval [min,max).
 *
-* @return random number
+* @param min    minimum value (inclusive)
+* @param max    maximum value (exclusive)
+* @return       random number
 */
-static double rand_double( void ) {
-	int r = rand();
-	return (double)r / ( (double)RAND_MAX + 1.0 );
+static double random_uniform( const double min, const double max ) {
+	double v = (double)rand() / ( (double)RAND_MAX + 1.0 );
+	return min + ( v*(max-min) );
 }
 
 /**
@@ -92,17 +94,22 @@ static double rand_double( void ) {
 */
 static double benchmark( void ) {
 	double elapsed;
-	double alpha;
-	double beta;
+	double alpha[ 100 ];
+	double beta[ 100 ];
 	double y;
 	double t;
 	int i;
 
+	for ( i = 0; i < 100; i++ ) {
+		alpha[ i ] = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
+	}
+	for ( i = 0; i < 100; i++ ) {
+		beta[ i ] = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
+	}
+
 	t = tic();
 	for ( i = 0; i < ITERATIONS; i++ ) {
-        alpha = ( (double)rand() / (double)RAND_MAX )*10.0 + STDLIB_CONSTANT_FLOAT64_EPS;
-		beta = ( (double)rand() / (double)RAND_MAX )* 10.0 + STDLIB_CONSTANT_FLOAT64_EPS;
-		y = stdlib_base_dists_gamma_entropy( alpha, beta );
+		y = stdlib_base_dists_gamma_entropy( alpha[ i%100 ], beta[ i%100 ] );
 		if ( y != y ) {
 			printf( "should not return NaN\n" );
 			break;

lib/node_modules/@stdlib/stats/base/dists/gamma/entropy/examples/c/example.c

@@ -21,15 +21,20 @@
 #include <stdlib.h>
 #include <stdio.h>
 
+static double random_uniform( const double min, const double max ) {
+	double v = (double)rand() / ( (double)RAND_MAX + 1.0 );
+	return min + ( v*(max-min) );
+}
+
 int main( void ) {
 	double alpha;
-    double beta;
+	double beta;
 	double y;
 	int i;
 
 	for ( i = 0; i < 10; i++ ) {
-        alpha = ( ( (double)rand() / (double)RAND_MAX ) * 10.0 ) + STDLIB_CONSTANT_FLOAT64_EPS;
-		beta = ( ( (double)rand() / (double)RAND_MAX ) * 10.0 ) + STDLIB_CONSTANT_FLOAT64_EPS ;
+		alpha = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
+		beta = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 ) ;
 		y = stdlib_base_dists_gamma_entropy( alpha, beta );
 		printf( "α: %1f, β: %1f, h(X;α,β): %lf\n", alpha , beta , y );
 	}

lib/node_modules/@stdlib/stats/base/dists/gamma/entropy/src/main.c

@@ -22,7 +22,7 @@
 #include "stdlib/math/base/special/digamma.h"
 
 /**
-* Evaluates the cumulative distribution function (CDF) for a Bernoulli distribution with success probability `p` at a value `x`.
+* Evaluates the differential entropy for a gamma distribution with shape parameter `alpha` and rate parameter `beta`.
 *
 * @param alpha    Shape parameter
 * @param beta     Rate parameter