new unit tests for transpose

Author: eddelbuettel

ChangeLog

@@ -3,6 +3,9 @@
         * inst/include/Rcpp/vector/Matrix.h (Rcpp): Matrix transpose is now a
         free function for both INTSXP and REALSXP
 
+        * inst/unitTests/runit.Matrix.R: New unit tests
+        * inst/unitTests/cpp/Matrix.cpp: Ditto
+
 2015-11-08  Daniel C. Dillon  <[email protected]>
 
         * inst/include/Rcpp/Nullable.h: No longer prevent assignment of

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 0.12.1.4
-Date: 2015-11-01
+Version: 0.12.1.5
+Date: 2015-11-08
 Author: Dirk Eddelbuettel, Romain Francois, JJ Allaire, Kevin Ushey, 
  Qiang Kou, Douglas Bates and John Chambers
 Maintainer: Dirk Eddelbuettel <[email protected]>

inst/unitTests/cpp/Matrix.cpp

@@ -242,3 +242,14 @@ NumericVector runit_const_Matrix_column( const NumericMatrix& m ){
 int mat_access_with_bounds_checking(const IntegerMatrix m, int i, int j) {
     return m.at(i, j);
 }
+
+
+// [[Rcpp::export]]
+IntegerMatrix transposeInteger(const IntegerMatrix & x) {
+    return transpose(x);
+}
+
+// [[Rcpp::export]]
+NumericMatrix transposeNumeric(const NumericMatrix & x) {
+    return transpose(x);
+}

inst/unitTests/runit.Matrix.R

@@ -183,4 +183,22 @@ if (.runThisTest) {
         checkException(mat_access_with_bounds_checking(m, -1, -1) , msg = "index out of bounds not detected" )
     }
 
+    test.IntegerMatrix.transpose <- function() {
+        M <- matrix(1:12, 3, 4)
+        checkEquals(transposeInteger(M), t(M), msg="integer transpose")
+        rownames(M) <- letters[1:nrow(M)]
+        checkEquals(transposeInteger(M), t(M), msg="integer transpose with rownames")
+        colnames(M) <- LETTERS[1:ncol(M)]
+        checkEquals(transposeInteger(M), t(M), msg="integer transpose with row and colnames")
+    }
+
+    test.NumericMatrix.transpose <- function() {
+        M <- matrix(1.0 * (1:12), 3, 4)
+        checkEquals(transposeNumeric(M), t(M), msg="numeric transpose")
+        rownames(M) <- letters[1:nrow(M)]
+        checkEquals(transposeNumeric(M), t(M), msg="numeric transpose with rownames")
+        colnames(M) <- LETTERS[1:ncol(M)]
+        checkEquals(transposeNumeric(M), t(M), msg="numeric transpose with row and colnames")
+    }
+    
 }