求R代码，如何选择性加和，比如一个数列a=(1, -2, 3, -4, 5, -6, -7, 8, -9, 10),如何R语言求a中所有大于0的数值之和，所有小于0数值之和？