R语言求欧式平方距离