suma obiektów S4 R

Question

mam klasy S4 i am zdefiniować liniowej kombinacji tych przedmiotów.

Czy można wysłać funkcje * i + na tej właśnie klasie?

Answer 1

Oto przykład:

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) 

Następnie

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

Answer 2

Operator + jest częścią grupy Arith rodzajowymi (patrz ?GroupGenericFunctions) tak można realizować wszystkie funkcje w grupie z

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

, a następnie z

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) 
}) 

Jedna miałaby

> 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