kmeansr语言实现