powered by
tapply
a fast simplified version of tapply
capply(x, index, fcn=sum)
x
index
default sum
Returns ans where for(i in split(x,index))ans <- c(ans,fcn(i)).
ans
for(i in split(x,index))ans <- c(ans,fcn(i))