bench: update value ranges

Author: kgryte

lib/node_modules/@stdlib/math/base/special/erf/benchmark/benchmark.js

@@ -34,7 +34,7 @@ bench( pkg, function benchmark( b ) {
 	var y;
 	var i;
 
-	x = uniform( 10, -500.0, 500.0, {
+	x = uniform( 10, -1.0, 1.0, {
 		'dtype': 'generic'
 	});
 

lib/node_modules/@stdlib/math/base/special/erf/benchmark/benchmark.native.js

@@ -43,7 +43,7 @@ bench( pkg+'::native', opts, function benchmark( b ) {
 	var y;
 	var i;
 
-	x = uniform( 10, -500.0, 500.0, {
+	x = uniform( 10, -1.0, 1.0, {
 		'dtype': 'generic'
 	});
 

lib/node_modules/@stdlib/math/base/special/erf/benchmark/c/benchmark.c

@@ -97,7 +97,7 @@ static double benchmark( void ) {
 
 	t = tic();
 	for ( i = 0; i < ITERATIONS; i++ ) {
-		x = ( 1000.0*rand_double() ) - 500.0;
+		x = ( 2.0*rand_double() ) - 1.0;
 		y = erf( x );
 		if ( y != y ) {
 			printf( "should not return NaN\n" );

lib/node_modules/@stdlib/math/base/special/erf/benchmark/c/native/benchmark.c

@@ -98,7 +98,7 @@ static double benchmark( void ) {
 
 	t = tic();
 	for ( i = 0; i < ITERATIONS; i++ ) {
-		x = ( 1000.0*rand_double() ) - 500.0;
+		x = ( 2.0*rand_double() ) - 1.0;
 		y = stdlib_base_erf( x );
 		if ( y != y ) {
 			printf( "should not return NaN\n" );

lib/node_modules/@stdlib/math/base/special/erf/benchmark/cpp/boost/benchmark.cpp

@@ -95,7 +95,7 @@ double benchmark() {
 	mt19937 rng;
 
 	// Define a uniform distribution for generating pseudorandom numbers as "doubles" between a minimum value (inclusive) and a maximum value (exclusive):
-	uniform_real_distribution<> randu( -500.0, 500.0 );
+	uniform_real_distribution<> randu( -1.0, 1.0 );
 
 	t = tic();
 	for ( i = 0; i < ITERATIONS; i++ ) {

lib/node_modules/@stdlib/math/base/special/erf/benchmark/julia/benchmark.jl

@@ -107,7 +107,7 @@ julia> out = benchmark();
 ```
 """
 function benchmark()
-	t = BenchmarkTools.@benchmark erf( (1000.0*rand()) - 500.0 ) samples=1e6
+	t = BenchmarkTools.@benchmark erf( (2.0*rand()) - 1.0 ) samples=1e6
 
 	# Compute the total "elapsed" time and convert from nanoseconds to seconds:
 	s = sum( t.times ) / 1.0e9;

lib/node_modules/@stdlib/math/base/special/erf/benchmark/python/benchmark.py

@@ -73,7 +73,7 @@ def print_results(elapsed):
 def benchmark():
     """Run the benchmark and print benchmark results."""
     setup = "from math import erf; from random import random;"
-    stmt = "y = erf(1000.0*random() - 500.0)"
+    stmt = "y = erf(2.0*random() - 1.0)"
 
     t = timeit.Timer(stmt, setup=setup)
 

lib/node_modules/@stdlib/math/base/special/erf/benchmark/python/scipy/benchmark.py

@@ -73,7 +73,7 @@ def print_results(elapsed):
 def benchmark():
     """Run the benchmark and print benchmark results."""
     setup = "from scipy.special import erf; from random import random;"
-    stmt = "y = erf(1000.0*random() - 500.0)"
+    stmt = "y = erf(2.0*random() - 1.0)"
 
     t = timeit.Timer(stmt, setup=setup)
 

lib/node_modules/@stdlib/math/base/special/erf/benchmark/r/benchmark.R

@@ -25,7 +25,7 @@ options( digits = 16L );
 #' main();
 main <- function() {
 	# Define benchmark parameters:
-	name <- "erf";
+	name <- 'erf';
 	iterations <- 1000000L;
 	repeats <- 3L;
 
@@ -34,7 +34,7 @@ main <- function() {
 	#' @examples
 	#' print_version();
 	print_version <- function() {
-		cat( "TAP version 13\n" );
+		cat( 'TAP version 13\n' );
 	}
 
 	#' Print the TAP summary.
@@ -45,12 +45,12 @@ main <- function() {
 	#' @examples
 	#' print_summary( 3, 3 );
 	print_summary <- function( total, passing ) {
-		cat( "#\n" );
-		cat( paste0( "1..", total, "\n" ) ); # TAP plan
-		cat( paste0( "# total ", total, "\n" ) );
-		cat( paste0( "# pass  ", passing, "\n" ) );
-		cat( "#\n" );
-		cat( "# ok\n" );
+		cat( '#\n' );
+		cat( paste0( '1..', total, '\n' ) ); # TAP plan
+		cat( paste0( '# total ', total, '\n' ) );
+		cat( paste0( '# pass  ', passing, '\n' ) );
+		cat( '#\n' );
+		cat( '# ok\n' );
 	}
 
 	#' Print benchmark results.
@@ -62,11 +62,11 @@ main <- function() {
 	#' print_results( 10000L, 0.131009101868 );
 	print_results <- function( iterations, elapsed ) {
 		rate <- iterations / elapsed;
-		cat( "  ---\n" );
-		cat( paste0( "  iterations: ", iterations, "\n" ) );
-		cat( paste0( "  elapsed: ", elapsed, "\n" ) );
-		cat( paste0( "  rate: ", rate, "\n" ) );
-		cat( "  ...\n" );
+		cat( '  ---\n' );
+		cat( paste0( '  iterations: ', iterations, '\n' ) );
+		cat( paste0( '  elapsed: ', elapsed, '\n' ) );
+		cat( paste0( '  rate: ', rate, '\n' ) );
+		cat( '  ...\n' );
 	}
 
 	#' Error function.
@@ -96,10 +96,10 @@ main <- function() {
 	#' elapsed <- benchmark( 10000L );
 	benchmark <- function( iterations ) {
 		# Run the benchmarks:
-		results <- microbenchmark::microbenchmark( erf( (1000.0*runif(1)) - 500.0 ), times = iterations );
+		results <- microbenchmark::microbenchmark( erf( (2.0*runif(1L)) - 1.0 ), times = iterations );
 
 		# Sum all the raw timing results to get a total "elapsed" time:
-		elapsed <- sum( results$time );
+		elapsed <- sum( results[[ time ]] );
 
 		# Convert the elapsed time from nanoseconds to seconds:
 		elapsed <- elapsed / 1.0e9;
@@ -108,11 +108,11 @@ main <- function() {
 	}
 
 	print_version();
-	for ( i in 1:repeats ) {
-		cat( paste0( "# r::", name, "\n" ) );
+	for ( i in 1L:repeats ) {
+		cat( paste0( '# r::', name, '\n' ) );
 		elapsed <- benchmark( iterations );
 		print_results( iterations, elapsed );
-		cat( paste0( "ok ", i, " benchmark finished", "\n" ) );
+		cat( paste0( 'ok ', i, ' benchmark finished', '\n' ) );
 	}
 	print_summary( repeats, repeats );
 }