[Rcpp-commits] r3724 - pkg/RcppEigen/inst/doc

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

Author: dmbates
Date: 2012-07-28 20:15:28 +0200 (Sat, 28 Jul 2012)
New Revision: 3724

Modified:
   pkg/RcppEigen/inst/doc/code.R
Log:
New version of wrap code provides correct answer to the badtrans example


Modified: pkg/RcppEigen/inst/doc/code.R
===================================================================
--- pkg/RcppEigen/inst/doc/code.R	2012-07-28 18:14:31 UTC (rev 3723)
+++ pkg/RcppEigen/inst/doc/code.R	2012-07-28 18:15:28 UTC (rev 3724)
@@ -189,8 +189,8 @@
 
 Ai <- matrix(1:6, ncol=2L)
 ftrans2 <- cxxfunction(signature(AA = "matrix"), badtransCpp, "RcppEigen", incl)
-#(At <- ftrans2(Ai)) # now throws an error
-#all.equal(At, t(Ai))
+(At <- ftrans2(Ai))
+all.equal(At, t(Ai))