Error message

  • Deprecated function: The each() function is deprecated. This message will be suppressed on further calls in book_prev() (line 775 of /home3/gardeoi3/public_html/iamrandom/modules/book/book.module).
  • Deprecated function: implode(): Passing glue string after array is deprecated. Swap the parameters in drupal_get_feeds() (line 394 of /home3/gardeoi3/public_html/iamrandom/includes/common.inc).

Multiply matrices (matmul)

In R this would be A%*%B.  In Rcpp it is matmul(A,B).

### Calls function: dot

Rcpp::NumericMatrix matmul(Rcpp::NumericMatrix A,Rcpp::NumericMatrix B)
   {     int a= A.nrow();
         int b= B.ncol();
         Rcpp::NumericMatrix C(a,b);
         for (int i = 0; i < a; i++)
         {  for (int j = 0; j < b; j++)
            {   C(i,j)= dot(A(i,_),B(_,j));
            }
         }
         return C;
   }