[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