Question

对不起我的无知，但我不明白如何正确实施S4泛型。过去几个小时我一直在苦苦挣扎。希望这是一个简单的修复。

我正在尝试为我的班级定义简单方法，例如print和summary。我尝试了下面的一系列不同的变化。下面的内容似乎是最接近工作但仍然显然不合适的东西。

这样做的正确方法是什么？我做错了什么？

setClass("foo",
         representation= list(method= "character",
                              mle_iter= "numeric",
                              mle_log_lik= "numeric",
                              data= "list"))


print.foo <- function(obj) {
  cat("\n Method: ", obj@method,
      "\n\n Iterations: ", obj@mle_iter,
      "\n\n Log-Likelihood: ", obj@mle_log_lik)
}

setGeneric("print",
           def= function(obj) {
             print.foo(obj)
             standardGeneric("print")
           })

setMethod("print", signature= "foo",
          function(obj) {
            print(obj)
          })


dat <- as.data.frame(matrix(rnorm(500), ncol=5))

foo1 <- new("foo",
           method= "EM",
           mle_iter= 6,
           mle_log_lik= 1000,
           data= list(dat))

class(foo1)

# this gives me the print that I want; but throws two errors
# other things that I've tried have just done evaluated print.default()
print(foo1)

摘要方法

## Summary
setGeneric("summary")

summary.foo <- function(obj) {
  print(obj)

  lapply(obj@data, dim)
}

setMethod("summary", signature= "foo",
  summary.foo)

summary(foo1) # works for this toy example. Doesn't work with my real code
# output for my real example
> Length           Class            Mode 
      1        mod_imputeMulti         S4

我认为这是对我无知的一个简单修复，但我不确定是什么。提前谢谢！

Answer 1

S4使用show()而不是打印。通用已存在

getGeneric("show")

所以你的工作就是实现一个方法

setMethod("show", "foo", function(object) {
    cat("I'm a foo\n")
})

summary是一个S3泛型，来自?Methods的建议是实现S3方法和S4方法

summary.foo <- function(object, ...) {
    ## implement summary.foo
    "I'm a foo"
}

setMethod("summary", "foo", summary.foo)

最后一行的副作用是在＆＃34;摘要＆＃34;上创建S4泛型。出于?Methods上列出的原因;明确地创建S4泛型可能很有用，

setGeneric("summary")

summary.foo <- function(object, ...) {
    ## implement summary.foo
    "I'm a foo"
}

setMethod("summary", "foo", summary.foo)

在设置方法之前。

如果要实现一个全新的泛型和方法，那么代码将遵循模式

setGeneric("bar", function(x, ...) standardGeneric("bar"))

setMethod("bar", "foo", function(x, ...) {
    ## implement 'bar,foo-method'
})

在这种情况下，不需要创建S3泛型或S3方法。

正确指定S4泛型

这样做的正确方法是什么？我做错了什么？

摘要方法

1 个答案: