chore: clean up

Author: Neerajpathak07

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/README.md

@@ -171,29 +171,11 @@ for ( i = 0; i < 10; i++ ) {
 
 #### stdlib_base_dists_erlang_variance( k, lambda )
 
-Evaluates the variance for a erlang distribution with shape parameter `k` and rate parameter `lambda` at a value `x`.
+Returns the variance for a erlang distribution with shape parameter `k` and rate parameter `lambda`.
 
 ```c
 double y = stdlib_base_dists_beta_variance( 1.0, 1.0 );
 // returns ~1.0
-
-y = stdlib_base_dists_beta_variance( 4.0, 12.0 );
-// returns ~0.028
-
-y = stdlib_base_dists_beta_variance( 8.0, 2.0 );
-// returns ~2.0
-
-y = stdlib_base_dists_beta_variance( 1.0, -0.1 );
-// returns NaN
-
-y = stdlib_base_dists_beta_variance( -0.1, 1.0 );
-// returns NaN
-
-y = stdlib_base_dists_beta_variance( 2.0, NaN );
-// returns NaN
-
-y = stdlib_base_dists_beta_variance( NaN, 2.0 );
-// returns NaN
 ```
 
 The function accepts the following arguments:
@@ -232,15 +214,20 @@ element and another before the `/section` close. -->
 #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 k;
     double lambda;
     double y;
     int i;
 
     for ( i = 0; i < 10; i++ ) {
-        k = stdlib_base_round( ( (double)rand() / (double)RAND_MAX )*10.0 );
-        lambda = ( ( (double)rand() / (double)RAND_MAX )*10.0 )+ STDLIB_CONSTANT_FLOAT64_EPS;
+        k = stdlib_base_round( random_uniform( 0.0, 10.0 ) );
+        lambda = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
         y = stdlib_base_dists_erlang_variance( k, lambda );
         printf( "k: %1f, λ: %1f, Var(X;k,λ):: %lf\n", k, lambda, y );
     }

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/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 ceil = require( '@stdlib/math/base/special/ceil' );
 var EPS = require( '@stdlib/constants/float64/eps' );
@@ -33,15 +34,24 @@ var variance = require( './../lib' );
 
 bench( pkg, function benchmark( b ) {
 	var lambda;
+	var len;
 	var k;
 	var y;
 	var i;
 
+	len = 100;
+	k = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		k[ i ] = ceil( uniform( 0.0, 10.0 ) );
+	}
+	lambda = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		lambda[ i ] = uniform( EPS, 10.0 );
+	}
+
 	b.tic();
 	for ( i = 0; i < b.iterations; i++ ) {
-		k = ceil( randu()*10.0 );
-		lambda = ( randu()*10.0 ) + EPS;
-		y = variance( k, lambda );
+		y = variance( k[ i%100 ], lambda[ i%100 ] );
 		if ( isnan( y ) ) {
 			b.fail( 'should not return NaN' );
 		}

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/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 ceil = require( '@stdlib/math/base/special/ceil' );
 var tryRequire = require( '@stdlib/utils/try-require' );
@@ -42,15 +43,24 @@ var opts = {
 
 bench( pkg+'::native', opts, function benchmark( b ) {
 	var lambda;
+	var len;
 	var k;
 	var y;
 	var i;
 
+	len = 100;
+	k = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		k[ i ] = ceil( uniform( 0.0, 10.0 ) );
+	}
+	lambda = new Float64Array( len );
+	for ( i = 0; i < len; i++ ) {
+		lambda[ i ] = uniform( EPS, 10.0 );
+	}
+
 	b.tic();
 	for ( i = 0; i < b.iterations; i++ ) {
-		k = ceil( randu()*10.0 );
-		lambda = ( randu()*10.0 ) + EPS;
-		y = variance( k, lambda );
+		y = variance( k[ i%100 ], lambda[ i%100 ] );
 		if ( isnan( y ) ) {
 			b.fail( 'should not return NaN' );
 		}

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/benchmark/c/benchmark.c

@@ -77,13 +77,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) );
 }
 
 /**
@@ -93,17 +95,22 @@ static double rand_double( void ) {
 */
 static double benchmark( void ) {
 	double elapsed;
-	double k;
-    double lambda;
+	double k[ 100 ];
+	double lambda[ 100 ];
 	double y;
 	double t;
 	int i;
 
+	for ( i = 0; i < 100; i++ ) {
+		k[ i ] = stdlib_base_ceil( random_uniform( 0.0, 10.0 ) );
+	}
+	for ( i = 0; i < 100; i++ ) {
+		lambda[ i ] = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
+	}
+
 	t = tic();
 	for ( i = 0; i < ITERATIONS; i++ ) {
-        k = stdlib_base_ceil( ( (double)rand() / (double)RAND_MAX )*10.0 );
-        lambda = ( ( (double)rand() / (double)RAND_MAX )*10.0 ) + STDLIB_CONSTANT_FLOAT64_EPS;
-        y = stdlib_base_dists_erlang_variance( k, lambda );
+		y = stdlib_base_dists_erlang_variance( k[ i%100 ], lambda[ i%100 ] );
 		if ( y != y ) {
 			printf( "should not return NaN\n" );
 			break;

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/examples/c/example.c

@@ -22,16 +22,21 @@
 #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 k;
-    double lambda;
+	double k;
+	double lambda;
 	double y;
 	int i;
 
 	for ( i = 0; i < 10; i++ ) {
-        k = stdlib_base_round( ( (double)rand() / (double)RAND_MAX )*10.0 );
-        lambda = ( ( (double)rand() / (double)RAND_MAX )*10.0 )+ STDLIB_CONSTANT_FLOAT64_EPS;
-        y = stdlib_base_dists_erlang_variance( k, lambda );
-        printf( "k: %1f, λ: %1f, Var(X;k,λ):: %lf\n", k, lambda, y );
+		k = stdlib_base_round( random_uniform( 0.0, 10.0 ) );
+		lambda = random_uniform( STDLIB_CONSTANT_FLOAT64_EPS, 10.0 );
+		y = stdlib_base_dists_erlang_variance( k, lambda );
+		printf( "k: %1f, λ: %1f, Var(X;k,λ):: %lf\n", k, lambda, y );
 	}
 }

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/include/stdlib/stats/base/dists/erlang/variance.h

@@ -27,7 +27,7 @@ extern "C" {
 #endif
 
 /**
-* Evaluates the excess variance for a erlang distribution with shape parameter `k` and rate parameter `lambda` at a value `x`.
+* Retruns the excess variance for a erlang distribution with shape parameter `k` and rate parameter `lambda` at a value `x`.
 */
 double stdlib_base_dists_erlang_variance( const double k, const double lambda );
 

lib/node_modules/@stdlib/stats/base/dists/erlang/variance/src/main.c

@@ -21,7 +21,7 @@
 #include "stdlib/math/base/assert/is_nan.h"
 
 /**
-* Evaluates the variance for a erlang distribution with shape parameter `k` and rate parameter `lambda` at a value `x`.
+* Returns the variance for a erlang distribution with shape parameter `k` and rate parameter `lambda` at a value `x`.
 *
 * @param k         shape parameter
 * @param lambda    rate parameter
@@ -56,7 +56,7 @@
 * // returns NaN
 */
 double stdlib_base_dists_erlang_variance( const double k, const double lambda ) {
-    if (
+	if (
 		!stdlib_base_is_positive_integer( k ) ||
 		stdlib_base_is_nan( lambda ) ||
 		lambda <= 0.0