R中S4對象的總和

Question

我有一個S4類，我想定義這些對象的線性組合。

是否可以派遣*和+功能在這個特定的類？

Answer 1

這裏是一個例子：

setClass("yyy", representation(v="numeric")) 

setMethod("+", signature(e1 = "yyy", e2 = "yyy"), function (e1, e2) e1@v + e2@v) 
setMethod("+", signature(e1 = "yyy", e2 = "numeric"), function (e1, e2) e1@v + e2) 

然後，

> y1 <- new("yyy", v = 1) 
> y2 <- new("yyy", v = 2) 
> 
> y1 + y2 
[1] 3 
> y1 + 3 
[1] 4 

Answer 2

的+運算符是ARITH組通用的（見?GroupGenericFunctions）因此可以實現該組中的所有功能與

的一部分

setMethod("Arith", "yyy", function(e1, e2) { 
    v = callGeneric(e1@v, e2@v) 
    new("yyy", v = v) 
}) 

然後用

setClass("yyy", representation(v="numeric")) 
setMethod(show, "yyy", function(object) { 
    cat("class:", class(object), "\n") 
    cat("v:", object@v, "\n") 
}) 
setMethod("Arith", "yyy", function(e1, e2) { 
    v = callGeneric(e1@v, e2@v) 
    new("yyy", v = v) 
}) 

一會還要

> y1 = new("yyy", v=1) 
> y2 = new("yyy", v=2) 
> y1 + y2 
class: yyy 
v: 3 
> y1/y2 
class: yyy 
v: 0.5 
## ...and so on