chore: clean up

Author: Neerajpathak07

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

@@ -169,20 +169,11 @@ for ( i = 0; i < 10; i++ ) {
 
 #### stdlib_base_dists_erlang_skewness( k, lambda )
 
-Evaluates the excess skewness for a erlang distribution with shape parameter `k` and rate parameter `lambda` at a value `x`.
+Returns the excess skewness for a erlang distribution with shape parameter `k` and rate parameter `lambda`.
 
 ```c
 double y = stdlib_base_dists_erlang_skewness( 1.0, 0.1 );
 // returns ~2.0
-
-y = stdlib_base_dists_erlang_skewness( 4.0, 12.0 );
-// returns ~1.0
-
-y = stdlib_base_dists_erlang_skewness( 8.0, 2.0 );
-// returns ~0.707
-
-y = stdlib_base_dists_erlang_skewness( 1.5, 2.0 );
-// returns NaN
 ```
 
 The function accepts the following arguments:
@@ -220,15 +211,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_skewness( k, lambda );
         printf( "k: %1f, λ: %1f, skew(X;k,λ): %lf\n", k , lambda , y );
     }

lib/node_modules/@stdlib/stats/base/dists/erlang/skewness/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 skewness = 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 = skewness( k, lambda );
+		y = skewness( k[ i%100 ], lambda[ i%100 ] );
 		if ( isnan( y ) ) {
 			b.fail( 'should not return NaN' );
 		}

lib/node_modules/@stdlib/stats/base/dists/erlang/skewness/benchmark/benchmark.native.js

@@ -23,7 +23,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' );
@@ -43,15 +44,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 = skewness( k, lambda );
+		y = skewness( k[ i%100 ], lambda[ i%100 ] );
 		if ( isnan( y ) ) {
 			b.fail( 'should not return NaN' );
 		}

lib/node_modules/@stdlib/stats/base/dists/erlang/skewness/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 );
-		lambda = ( ( (double)rand() / (double)RAND_MAX )*10 ) + STDLIB_CONSTANT_FLOAT64_EPS;
-		y = stdlib_base_dists_erlang_skewness( k, lambda );
+		y = stdlib_base_dists_erlang_skewness( k[ i%100 ], lambda[ i%100 ] );
 		if ( y != y ) {
 			printf( "should not return NaN\n" );
 			break;

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

@@ -22,15 +22,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 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_skewness( k, lambda );
 		printf( "k: %1f, λ: %1f, skew(X;k,λ): %lf\n", k , lambda , y );
 	}

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

@@ -27,7 +27,7 @@ extern "C" {
 #endif
 
 /**
-* Returns the skewness of a erlang distribution.
+* Returns the excess skewness for a erlang distribution with shape parameter `k` and rate parameter `lambda`.
 */
 double stdlib_base_dists_erlang_skewness( const double k, const double lambda );
 

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

@@ -22,7 +22,7 @@
 #include "stdlib/math/base/special/sqrt.h"
 
 /**
-* Returns the skewness of a Bernoulli distribution.
+* Returns the excess skewness for a erlang distribution with shape parameter `k` and rate parameter `lambda`.
 *
 * @param k        shape parameter
 * @param lambda   rate parameter