求R语言代码，如何选择性加和

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

1. > a <- c(1, -2, 3, -4, 5, -6, -7, 8, -9, 10)
   
2. > sum(a[a > 0])
   
3. [1] 27
   
4. > sum(a[a < 0])
   
5. [1] -28

复制代码

sum(a[a>0])