tổng của các đối tượng S4 trong R

Question

Tôi có một lớp S4 và tôi muốn xác định sự kết hợp tuyến tính của các đối tượng này.

Có thể gửi các hàm * và + vào lớp cụ thể này không?

Answer 1

đây là một ví dụ:

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) 

sau đó,

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

Answer 2

Nhà điều hành + là một phần của nhóm Arith generic (xem ?GroupGenericFunctions) để người ta có thể thực hiện tất cả các chức năng trong nhóm với

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

và sau đó với

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

Một sẽ phải

> 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