R面向对象编程

1.面向对象编程的两种方式

基于类层次结构：C++，JAVA

基于泛型函数：R

两种方式的逻辑有很大不同！！

2.R面向对象编程

2.1 S3类

通过函数创建类，实例化的S3对象只包含属性和一个指定其类的字符串，一个S3对象可以属于多个类。

S3类方法不包含在对象或类中，而是属于泛型函数（相当于一个函数族）。UseMethod创建泛型函数，包括两个参数，泛型函数名和对象。创建泛型函数后给其添加方法，格式为函数名.类名。某个对象使用S3方法时，即搜索函数命->类名，如有即执行，以此事先面向对象。

rm(list = ls())

#创建一个对象
#两步法
DNAseq = list(seq="ATCCGATAG",len=length(seq))
class(DNAseq) = append(class(DNAseq),"DNAseq")
#一步法
DNAseq = structure(list(seq="AAAGCT",len=length(seq)),class="DNAseq")

#创建一个类
#straight forward方式创建
my_person = function(n,h,a){
  structure(list(name=n,height=h,age=a),class="my_person")
}

my_person = function(n,h,a){
  me = list(name=n,height=h,age=a)
  class(me)=append(class(me),"my_person")
  return(me)
}
#local enviroment方式创建

#创建泛型函数
display = function(obj){
  UseMethod("display",obj)
}
display.my_person = function(obj){
  cat("name is",obj$name,"\n")
  cat("height is",obj$height,"\n")
  cat("age is",obj$age,"\n")
}
display.default = function(obj){
  print("unknown class")
}

#实例化一个类
zyx = my_person("zyx",162,23)

2.2 S4类

和S3类类似。S3类类属性的引用使用$，S4类类属性的引用使用@。

未完待续...