Come definire il metodo S4 per prendere l'opposto dell'oggetto?

Question

Diciamo che ho una classe S4 chiamata testClass. I contenuti sono irrilevanti allo scopo di questa domanda, ma facciamo in modo che contenga un valore numerico.

#' An S4 class that stores a list. 
#' @export 
setClass("testClass", 
       representation(a="numeric")) 

Mi piacerebbe definire un metodo che funzioni come il prendere l'opposto di un oggetto. Per esempio:

vec <- rnorm(10) 
-vec 

ho pensato che questo sarebbe un metodo dichiarando Arith con il primo argomento mancante.

#' @export 
setMethod("Arith", c(e1="missing", e2="testClass"), 
        function(e1, e2) 
        { 
         op = .Generic[[1]] 
         switch(op, 
          `-` = return(-e2@a) 
         ) 
        } 
) 

Tuttavia, quando provo ad applicare il metodo ottengo il seguente errore:

tc <- new("testClass", a=2) 
-tc 

Error in -tc : invalid argument to unary operator

Answer 1

Hah! Dopo averle giocate ancora un po 'ho scoperto che è l'argomento e2 che deve essere scomparso. I seguenti lavori:

#' @export 
setMethod("Arith", c(e1="testClass", e2="missing"), 
        function(e1, e2) 
        { 
         op = .Generic[[1]] 
         switch(op, 
          `-` = return(-e1@a) 
         ) 
        } 
)