r语言向量求