R语言里S4对象的泛型函数

　　R语言里，S4对象系统有专门的类定义函数setClass()和类的实例化函数new()。S4的泛型函数实现有别于S3的实现，S4分离了方法的定义和实现，如在其他语言中我们常说的接口和实现分离。通过setGeneric()来定义接口，通过setMethod()来定义实现类，这样可以让S4对象系统更符合面向对象的特征。
　　普通函数的定义和调用。

> work <- function(x) cat(x, "is working")
> work('Conan')
Conan is working

　　让我们来看看，如何用R分离接口和实现。　　

##定义一个类
setClass("Person",slots = list(name="character",age="numeric"))
##定义接口
setGeneric("work",function(object) standardGeneric("work"))

##实现接口
setMethod("work",signature(object="Person"),function(object) cat(object@name,
                                                                 "is working"))
a <- new("Person",name="Conan",age=16)
work(a)

　　通过S4对象系统，把原来的函数定义及调用过程从2步变成4步:
　　(1)定义类或对象；
　　(2)定义接口;
　　(3)实现接口;
　　(4)将数据对象放入接口函数，调用接口函数。
　　所以，S4对象系统是一个结构化的面向对象实现。