When Array receive :* with RObject::Matrix, call R's %*% function