feat: temp commit

Author: anandkaranubc

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

@@ -4,14 +4,14 @@
 #
 # Copyright (c) 2018 The Stdlib Authors.
 #
-# Licensed under the Apache License, Version 2.0 (the "License");
+# Licensed under the Apache License, Version 2.0 (the 'License');
 # you may not use this file except in compliance with the License.
 # You may obtain a copy of the License at
 #
 #    http://www.apache.org/licenses/LICENSE-2.0
 #
 # Unless required by applicable law or agreed to in writing, software
-# distributed under the License is distributed on an "AS IS" BASIS,
+# distributed under the License is distributed on an 'AS IS' BASIS,
 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 # See the License for the specific language governing permissions and
 # limitations under the License.
@@ -20,7 +20,7 @@
 options( digits = 16L );
 
 # Temporarily turn off warnings:
-setting <- getOption( "warn" );
+setting <- getOption( 'warn' );
 options( warn = -1 );
 
 #' Run benchmarks.
@@ -29,7 +29,7 @@ options( warn = -1 );
 #' main();
 main <- function() {
 	# Define benchmark parameters:
-	name <- "binomcoef";
+	name <- 'binomcoeff';
 	iterations <- 10000L;
 	repeats <- 3L;
 
@@ -38,7 +38,7 @@ main <- function() {
 	#' @examples
 	#' print_version();
 	print_version <- function() {
-		cat( "TAP version 13\n" );
+		cat( 'TAP version 13\n' );
 	}
 
 	#' Print the TAP summary.
@@ -49,12 +49,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.
@@ -66,18 +66,18 @@ 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' );
 	}
 
 	#' Run a benchmark.
 	#'
 	#' ## Notes
 	#'
-	#' * We compute and return a total "elapsed" time, rather than the minimum
+	#' * We compute and return a total 'elapsed' time, rather than the minimum
 	#'   evaluation time, to match benchmark results in other languages (e.g.,
 	#'   Python).
 	#'
@@ -91,7 +91,7 @@ main <- function() {
 		# Run the benchmarks:
 		results <- microbenchmark::microbenchmark( choose( (50.0*runif(1))+20.0, 20.0*runif(1) ), times = iterations );
 
-		# Sum all the raw timing results to get a total "elapsed" time:
+		# Sum all the raw timing results to get a total 'elapsed' time:
 		elapsed <- sum( results$time );
 
 		# Convert the elapsed time from nanoseconds to seconds:
@@ -102,10 +102,10 @@ main <- function() {
 
 	print_version();
 	for ( i in 1:repeats ) {
-		cat( paste0( "# r::", name, "\n" ) );
+		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 );
 }