如何定义S4取反对象的方法?

裁员

假设我有一个名为的S4类testClass内容与该问题的目的无关,但让我们使其包含数字值。

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

我想定义一个方法,该方法的工作方式与采取对象的相反方法相同。例如:

vec <- rnorm(10)
-vec

我认为这将是声明Arith缺少第一个参数方法。

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

但是,当我尝试应用该方法时,出现以下错误:

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

-tc中的错误:一元运算符的参数无效

裁员

哈哈!摆弄一些东西之后,我发现它是e2需要丢失参数。以下作品:

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

如何访问S4对象的方法

来自分类Dev

如何获得R中S4类上定义的所有方法的列表?

来自分类Dev

转换自定义S4类的R方法

来自分类Dev

如何禁止S4对象的空插槽?

来自分类Dev

如何实现S4方法的子集替换

来自分类Dev

如何获取反对CsRF的主机名

来自分类Dev

如何为R中定义的S4类定义函数match和%in%的行为?

来自分类Dev

什么时候在R中调用S4对象的访问器方法?

来自分类Dev

如何继承stan的S4类

来自分类Dev

Galaxy S4 Android自定义相机问题

来自分类Dev

R:从S4对象获取插槽的值(ScalarIndependenceTest)

来自分类Dev

遍历S4对象插槽Rcpp

来自分类Dev

带S4对象插槽的tbl_df

来自分类Dev

将S4对象存储在矩阵中

来自分类Dev

在Rcpp中创建R S4类的对象?

来自分类Dev

在R中创建S4对象

来自分类Dev

整齐或不必要的S4 BFBayesFactor对象

来自分类Dev

从列表向量monitoR中提取S4对象

来自分类Dev

将S4对象存储在矩阵中

来自分类Dev

访问S4对象插槽内的数据

来自分类Dev

在R中创建S4对象

来自分类Dev

R 中 S4 对象的并行化错误

来自分类Dev

如何为S4类向量化访问器方法?

来自分类Dev

如何使 S4 类从另一个 S4 类正确继承?

来自分类Dev

为什么lapply无法在具有as.list.default方法的S4对象上工作?

来自分类Dev

S4方法参数的惰性评估

来自分类Dev

S4方法参数的惰性求值

来自分类Dev

如何编辑 R S4 Object 摘要的代码?

来自分类Dev

ANTLR4如何进行取反