[Rcpp-commits] r3221 - pkg/RcppEigen/inst/examples

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

Author: dmbates
Date: 2011-10-26 17:14:19 +0200 (Wed, 26 Oct 2011)
New Revision: 3221

Modified:
   pkg/RcppEigen/inst/examples/lmBenchmark.R
Log:
Suppress messages and provide additional information about Eigen version and SSE instructions in use.


Modified: pkg/RcppEigen/inst/examples/lmBenchmark.R
===================================================================
--- pkg/RcppEigen/inst/examples/lmBenchmark.R	2011-10-26 15:12:35 UTC (rev 3220)
+++ pkg/RcppEigen/inst/examples/lmBenchmark.R	2011-10-26 15:14:19 UTC (rev 3221)
@@ -34,11 +34,11 @@
 ## LLt Cholesky decomposition
 exprs$LLt <- expression(.Call("fastLm", mm, y, 3L, PACKAGE="RcppEigen"))
 
-if (require("RcppArmadillo", character=TRUE, quietly=TRUE)) {
+if (suppressMessages(require("RcppArmadillo", character=TRUE, quietly=TRUE))) {
     exprs$arma <- expression(.Call("fastLm", mm, y, PACKAGE="RcppArmadillo"))
 }
 
-if (require("RcppGSL", character=TRUE, quietly=TRUE)) {
+if (suppressMessages(require("RcppGSL", character=TRUE, quietly=TRUE))) {
     exprs$GSL <- expression(.Call("fastLm", mm, y, PACKAGE="RcppGSL"))
 }
 
@@ -55,3 +55,9 @@
 }
 
 print(do_bench())
+
+sessionInfo()
+
+.Call("eigen_version", FALSE, PACKAGE="RcppEigen")
+
+.Call("Eigen_SSE", FALSE, PACKAGE="RcppEigen")