用两个参数编写一个S4泛型方法

我想用一个通用的方法来定义我自己的S4类。用两个参数编写一个S4泛型方法

setClass("MultiplyObject", representation(the.factor = "numeric")) 
# Create a new instance of a class with the "new" method 
multobj <- new("MultiplyObject", the.factor = 3) 
# Create a new generic function definition 
setGeneric("ActOnNumber", function(object, n) { 
    standardGeneric("ActOnNumber", n) 
}) 
# Define the ActOnNumber method for the MultiplyObject class 
setMethod("ActOnNumber", signature(object = "MultiplyObject", n = "numeric"), 
     function(object, n) { 
    [email protected] * n 
}) 
cat(sprintf('ActOnNumber(multobj, 4) = %.2f\n', ActOnNumber(multobj, 4)))

但是，当我输入包含上述代码的文件时，出现错误。

> source('tests4.R') 
Error in ActOnNumber(multobj, 4) : 
    expected a generic function or a primitive for dispatch, got an object of class "numeric"

什么是定义ActOnNumber函数的正确方法？

来源

2014-02-23 I Like to Code

standardGeneric()函数期望函数的名称被作为泛型，仅此而已。所以

setGeneric("ActOnNumber", function(object, n) { 
    standardGeneric("ActOnNumber") 
})

来源

2014-02-23 05:54:19

用两个参数编写一个S4泛型方法

回答

相关问题