00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 00002 // 00003 // RcppMatrix.h: Rcpp R/C++ interface class library -- templated matrix support 00004 // 00005 // Copyright (C) 2005 - 2006 Dominick Samperi 00006 // Copyright (C) 2008 - 2009 Dirk Eddelbuettel 00007 // 00008 // This file is part of Rcpp. 00009 // 00010 // Rcpp is free software: you can redistribute it and/or modify it 00011 // under the terms of the GNU General Public License as published by 00012 // the Free Software Foundation, either version 2 of the License, or 00013 // (at your option) any later version. 00014 // 00015 // Rcpp is distributed in the hope that it will be useful, but 00016 // WITHOUT ANY WARRANTY; without even the implied warranty of 00017 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00018 // GNU General Public License for more details. 00019 // 00020 // You should have received a copy of the GNU General Public License 00021 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 00022 00023 #ifndef RcppMatrix_h 00024 #define RcppMatrix_h 00025 00026 #include <RcppCommon.h> 00027 00028 template <typename T> 00029 class RcppMatrix { 00030 public: 00031 RcppMatrix(SEXP mat); 00032 RcppMatrix(int nx, int ny); 00033 int getDim1() const; 00034 int getDim2() const; 00035 int rows() const; 00036 int cols() const; 00037 T& operator()(int i, int j) const; 00038 T **cMatrix(); 00039 std::vector<std::vector<T> > stlMatrix(); 00040 private: 00041 int dim1, dim2; 00042 T **a; 00043 }; 00044 00045 #endif