4.3 R语言基于S4的面向对象编程