写名字(对象)<-赋值方法在R

Question

我正在为一个S4类编写方法。我写了一个"names"方法，如下所示:

setMethod("names","markovchain", 
       function(x) {
        out <- x@states
        return(out)
      }
)

返回组成S4 markovchain对象的slot x@states。现在我想为names方法添加设置x@states值的功能。我该怎么做呢?

Answer 1

定义names<-方法:

setMethod("names<-","markovchain", 
   function(x,value) {
    x@states<-value
    return(x)
   }
)