[Rcpp-commits] r3503 - pkg/RcppEigen/inst/tests

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

Author: dmbates
Date: 2012-03-13 23:35:12 +0100 (Tue, 13 Mar 2012)
New Revision: 3503

Modified:
   pkg/RcppEigen/inst/tests/test-solutions.R
Log:
Clean up.  I defined the results then reevaluated them.


Modified: pkg/RcppEigen/inst/tests/test-solutions.R
===================================================================
--- pkg/RcppEigen/inst/tests/test-solutions.R	2012-03-13 17:49:37 UTC (rev 3502)
+++ pkg/RcppEigen/inst/tests/test-solutions.R	2012-03-13 22:35:12 UTC (rev 3503)
@@ -41,9 +41,9 @@
 Vec            x(lu.solve(b));
 
 return List::create(Named("A",    A),
-                    Named("Ainv", lu.inverse()),
+                    Named("Ainv", Ainv),
                     Named("b",    b),
-                    Named("x",    lu.solve(b)));
+                    Named("x",    x));
 '),
          "dense_CPQR" = list(signature(A_="matrix", b_="numeric"),'
 MMat           A(as<MMat>(A_));