인터페이싱 후기

아, C interface to R을 할 때, 행렬 곱 구하기.

되었다.

require(RcppArmadillo);

require(Rcpp);

cppFunction("arma::mat schur(arma::mat& a, arma::mat& b) { return(a % b); }", depends="RcppArmadillo")

cppFunction('

NumericVector multMat(NumericMatrix m1, NumericMatrix m2) {

  NumericVector multMatrix = m1 * m2;

  multMatrix.attr("dim") = Dimension(m1.nrow(), m1.ncol());

  return multMatrix;

}

')