R:求和值和求和值

Question

我有一个矢量:

vec <- c(1,-2,9,-7,7,4,5,2,1,-10)

现在我想取vec中负值的总和,以及vec中正值的总和.

neg <- sum of the negative values in vec
pos <- sum of the positive values in vec

Answer 1

neg <- sum(vec[vec<0]);
pos <- sum(vec[vec>0]);