How to create S3 classes in R

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

First, everything in R is treated like as an object. We have seen this with functions. Many of the objects that are created within an R session have attributes associated with them. One common attribute associated with an object is its class.

You can set the class attribute using the class command. One thing to notice is that the class is a vector which allows an object to inherit from multiple classes, and it allows you to specify the order of inheritance for complex classes. You can also use the class command to determine the classes associated with an object.

1. > bubba <- c(1,2,3)
   
2. > bubba
   
3. [1] 1 2 3
   
4. >
   
5. > class(bubba)
   
6. [1] "numeric"
   
7. >
   
8. > class(bubba) <- append(class(bubba),"Flamboyancy")
   
9. > class(bubba)
   
10. [1] "numeric"     "Flamboyancy"

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

关键词：classes Create creat ATE CRE

A new command, append, is used here. The first argument is a vector, and the function adds the following arguments to the end of the vector.

One way to define a method for a class is to use the UseMethod command to define a hierarchy of functions that will react appropriately. The UseMethod command will tell R to look for a function whose prefix matches the current function, and it searches for a suffix in order from the vector of class names. In other words a set of functions can be defined, and the function that is actually called will be determined by the class name of the first object in the list of arguments.

You first have to define a generic function to reserve the function name. The UseMethod command is then used to tell the R system to search for a different function. The search is based on the name of the function and the names of an object’s classes. The name of the functions have two parts separated by a ”.” where the prefix is the function name and the suffix is the name of a class.

That is a lot of verbiage to describe a relatively simple idea. A very basic example is given below:

1. > bubba <- list(first="one", second="two", third="third")
   
2. > class(bubba) <- append(class(bubba),"Flamboyancy")
   
3. >
   
4. > bubba
   
5. $first
   
6. [1] "one"
   
7. 
   
8. $second
   
9. [1] "two"
   
10. 
    
11. $third
    
12. [1] "third"
    
13. 
    
14. attr(,"class")
    
15. [1] "list"        "Flamboyancy"
    
16. >
    
17. > GetFirst <- function(x)
    
18. + {
    
19. +     UseMethod("GetFirst",x)
    
20. + }
    
21. >
    
22. > GetFirst.Flamboyancy <- function(x)
    
23. + {
    
24. +    return(x$first)
    
25. + }
    
26. >
    
27. > GetFirst(bubba)
    
28. [1] "one"

复制代码

oliyiyi 发表于 2019-1-12 11:37
First, everything in R is treated like as an object. We have seen this with functions. Many of the o ...

In particular, we can use the extract function on stanfit objects to obtain the samples. extract extracts samples from the stanfit object as a list of arrays for parameters of interest, or just an array. In addition, S3 functions as.array, as.matrix, and as.data.frame are defined for stanfit objects (using help("as.array.stanfit") to check out the help document in R).

the class attribute using the class command

失望！楼主忘记汉语怎么说的？

thx for sharing~

good 09