R语言进阶——泛型函数的编写与提取案例