R语言实现