oa_r_utils.h

Go to the documentation of this file.

 
#ifndef OA_R_UTILS_H
#define OA_R_UTILS_H
 
#include <stdexcept>
#include <Rcpp.h>
#include "matrix.h"
#include "rutils.h"
 
namespace oarutils {
 
    template <class T>
    void convertToIntegerMatrix(const bclib::matrix<T> & A, Rcpp::IntegerMatrix & rcppA)
    {
      size_t nrows = A.rowsize();
      size_t ncols = A.colsize();
      if (rcppA.rows() != static_cast<int>(nrows) || rcppA.cols() != static_cast<int>(ncols))
      {
        rcppA = Rcpp::IntegerMatrix(nrows, ncols);
      }
      for (size_t i = 0; i < nrows; i++)
      {
        for (size_t j = 0; j < ncols; j++)
        {
          rcppA(i,j) = static_cast<int>(A(i,j));
        }
      }
    }
 
    template <class T, class U>
    void convertToRcppMatrix(const bclib::matrix<T> & A, U & rcppA)
    {
      size_t nrows = A.rowsize();
      size_t ncols = A.colsize();
      if (rcppA.rows() != static_cast<int>(nrows) || rcppA.cols() != static_cast<int>(ncols))
      {
        rcppA = U(nrows, ncols);
      }
      for (size_t i = 0; i < nrows; i++)
      {
        for (size_t j = 0; j < ncols; j++)
        {
          rcppA(i,j) = A(i,j);
        }
      }
    }
 
    template <class T, class U>
    void convertToMatrix(const U & rcppA, bclib::matrix<T> & A)
    {
      int nrows = rcppA.rows();
      int ncols = rcppA.cols();
      if (nrows != static_cast<int>(A.rowsize()) || ncols != static_cast<int>(A.colsize()))
      {
        A = bclib::matrix<T>(static_cast<size_t>(nrows), static_cast<size_t>(ncols));
      }
      for (size_t i = 0; i < static_cast<size_t>(nrows); i++)
      {
        for (size_t j = 0; j < static_cast<size_t>(ncols); j++)
        {
          A(i,j) = rcppA(i,j);
        }
      }
    }
 
    void randomizeOA(Rcpp::IntegerMatrix & oa, int q);
 
} // end namespace
 
#endif  /* OA_R_UTILS_H */