S3クラス用オーバーロード行列乗算R

Question

行列乗算演算子をRにオーバーロードする方法は？私は他のほとんどの演算子（オプスを使用して）でそれを行うことができましたが、行列演算で私はこのエラーを取得する：ここで

requires numeric/complex matrix/vector arguments 

は最小作業例です：

speed = function(x){ 
    structure(list(y = x), 
       class = "speed") 
} 

m = matrix(c(1,2,3,4), ncol = 2) 
s = speed(m) 

# Addition works fine 
`+.speed` = function(e1, e2){ e1$y + e2 } 

s + 10 

# But matrix multiplication doesn't 
`%*%.speed` = function(e1, e2){ e1$y %*% e2 } 

s %*% c(1,2) 

Answer 1

私はこれがあると思いますなぜなら%*%はデフォルトではS3汎用関数ではないからです。あなたはこれをそうすることによってこれを回避することができます。

`%*%.default` = .Primitive("%*%") # assign default as current definition 
`%*%` = function(x,...){ #make S3 
    UseMethod("%*%",x) 
} 
`%*%.speed` = function(e1, e2){ e1$y %*% e2 } # define for speed 

s %*% c(1,2) 
    [,1] 
[1,] 7 
[2,] 10 

あなたが以下のコメントに照らして編集このhere

に関する追加情報を望んでいた場合は、ハドレーの本を見ることができます。