[Rcpp-commits] r2368 - in pkg/RcppDE: . demo

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Thu Oct 28 16:42:39 CEST 2010


Author: edd
Date: 2010-10-28 16:42:39 +0200 (Thu, 28 Oct 2010)
New Revision: 2368

Modified:
   pkg/RcppDE/benchmark.r
   pkg/RcppDE/bigBenchmark.r
   pkg/RcppDE/demo/LargeBenchmark.R
   pkg/RcppDE/demo/SmallBenchmark.R
Log:
minor whitespace cleanup


Modified: pkg/RcppDE/benchmark.r
===================================================================
--- pkg/RcppDE/benchmark.r	2010-10-28 14:33:09 UTC (rev 2367)
+++ pkg/RcppDE/benchmark.r	2010-10-28 14:42:39 UTC (rev 2368)
@@ -1,5 +1,5 @@
 #!/usr/bin/r -t
 
 svnver <- system("svnversion", intern=TRUE)
-cat("# At", format(Sys.time()), "\n# SVN ", svnver, "\n", sep="")
+cat("# SVN", svnver, "\n")
 source("demo/SmallBenchmark.R")

Modified: pkg/RcppDE/bigBenchmark.r
===================================================================
--- pkg/RcppDE/bigBenchmark.r	2010-10-28 14:33:09 UTC (rev 2367)
+++ pkg/RcppDE/bigBenchmark.r	2010-10-28 14:42:39 UTC (rev 2368)
@@ -1,5 +1,5 @@
 #!/usr/bin/r -t
 
 svnver <- system("svnversion", intern=TRUE)
-cat("# At", format(Sys.time()), "\n# SVN ", svnver, "\n", sep="")
+cat("# SVN", svnver, "\n")
 source("demo/LargeBenchmark.R")

Modified: pkg/RcppDE/demo/LargeBenchmark.R
===================================================================
--- pkg/RcppDE/demo/LargeBenchmark.R	2010-10-28 14:33:09 UTC (rev 2367)
+++ pkg/RcppDE/demo/LargeBenchmark.R	2010-10-28 14:42:39 UTC (rev 2368)
@@ -42,7 +42,7 @@
         return(data.frame(DEoptim=bt, RcppDE=ct))
     }
 
-    cat("# At ", format(Sys.time()), "\n")
+    cat("# At", format(Sys.time()), "\n")
 
     reps <- c(50, 100, 200)
 
@@ -61,7 +61,7 @@
     res$pctGainOfRcpp <- (1-res[,2]/res[,1])*100
 
     print(res)
-    cat("# Done ", format(Sys.time()), "\n")
+    cat("# Done", format(Sys.time()), "\n")
 }
 
 demo.LargeBenchmark()

Modified: pkg/RcppDE/demo/SmallBenchmark.R
===================================================================
--- pkg/RcppDE/demo/SmallBenchmark.R	2010-10-28 14:33:09 UTC (rev 2367)
+++ pkg/RcppDE/demo/SmallBenchmark.R	2010-10-28 14:42:39 UTC (rev 2368)
@@ -43,7 +43,7 @@
         return(data.frame(DEoptim=bt, RcppDE=ct))
     }
 
-    cat("# At ", format(Sys.time()), "\n")
+    cat("# At", format(Sys.time()), "\n")
 
     reps <- c(5, 10, 20)
 
@@ -62,7 +62,7 @@
     res$pctGainOfRcpp <- (1-res[,2]/res[,1])*100
 
     print(res)
-    cat("# Done ", format(Sys.time()), "\n")
+    cat("# Done", format(Sys.time()), "\n")
 }
 
 demo.SmallBenchmark()



More information about the Rcpp-commits mailing list