[Rcpp-commits] r2163 - pkg/Rcpp/inst/examples/ConvolveBenchmarks

[noreply at r-forge.r-project.org]

Author: edd
Date: 2010-09-24 17:37:53 +0200 (Fri, 24 Sep 2010)
New Revision: 2163

Modified:
   pkg/Rcpp/inst/examples/ConvolveBenchmarks/exampleRCode.r
Log:
set execute bit (as it is an littler script)
comment-out some of the debug / investigation version
this leaves us with seven versions to compare -- ok?


Modified: pkg/Rcpp/inst/examples/ConvolveBenchmarks/exampleRCode.r
===================================================================
--- pkg/Rcpp/inst/examples/ConvolveBenchmarks/exampleRCode.r	2010-09-24 12:36:55 UTC (rev 2162)
+++ pkg/Rcpp/inst/examples/ConvolveBenchmarks/exampleRCode.r	2010-09-24 15:37:53 UTC (rev 2163)
@@ -1,6 +1,6 @@
 #!/usr/bin/r
 
-require( Rcpp )
+suppressMessages(require(Rcpp))
 set.seed(42)
 a <- rnorm(100)
 b <- rnorm(100)
@@ -24,14 +24,14 @@
 R_API_optimised <- function(n,a,b) .Call("convolve2__loop", n, a, b)
 Rcpp_Classic <- function(n,a,b) .Call("convolve2cpp__loop", n, a, b)
 Rcpp_New_std <- function(n,a,b) .Call("convolve3cpp__loop", n, a, b)
-Rcpp_New_std_inside <- function(n,a,b) .Call("convolve3cpp__loop", n, a, b, PACKAGE = "Rcpp" )
+#Rcpp_New_std_inside <- function(n,a,b) .Call("convolve3cpp__loop", n, a, b, PACKAGE = "Rcpp" )
 Rcpp_New_ptr <- function(n,a,b) .Call("convolve4cpp__loop", n, a, b)
 Rcpp_New_sugar <- function(n,a,b) .Call("convolve5cpp__loop", n, a, b)
 Rcpp_New_sugar_nona <- function(n,a,b) .Call("convolve11cpp__loop", n, a, b)
 R_API_naive <- function(n,a,b) .Call("convolve7__loop", n, a, b)
-Rcpp_New_std_2 <- function(n,a,b) .Call("convolve8cpp__loop", n, a, b)
-Rcpp_New_std_3 <- function(n,a,b) .Call("convolve9cpp__loop", n, a, b)
-Rcpp_New_std_4 <- function(n,a,b) .Call("convolve10cpp__loop", n, a, b)
+#Rcpp_New_std_2 <- function(n,a,b) .Call("convolve8cpp__loop", n, a, b)
+#Rcpp_New_std_3 <- function(n,a,b) .Call("convolve9cpp__loop", n, a, b)
+#Rcpp_New_std_4 <- function(n,a,b) .Call("convolve10cpp__loop", n, a, b)
 
 
 v1 <- R_API_optimised(1L, a, b )
@@ -54,13 +54,13 @@
                 R_API_naive(REPS,a,b),
                 Rcpp_Classic(REPS,a,b),
                 Rcpp_New_std(REPS,a,b),
-                Rcpp_New_std_inside(REPS,a,b),
+#                Rcpp_New_std_inside(REPS,a,b),
                 Rcpp_New_ptr(REPS,a,b),
                 Rcpp_New_sugar(REPS,a,b),
                 Rcpp_New_sugar_nona(REPS,a,b),
-                Rcpp_New_std_2(REPS,a,b),
-                Rcpp_New_std_3(REPS,a,b),
-                Rcpp_New_std_4(REPS,a,b),
+#                Rcpp_New_std_2(REPS,a,b),
+#                Rcpp_New_std_3(REPS,a,b),
+#                Rcpp_New_std_4(REPS,a,b),
                 columns=c("test", "elapsed", "relative", "user.self", "sys.self"),
                 order="relative",
                 replications=1)


Property changes on: pkg/Rcpp/inst/examples/ConvolveBenchmarks/exampleRCode.r
___________________________________________________________________
Added: svn:executable
   + *