Ich habe einen Vektor und muss jeden summierenn Zahlen und geben die Ergebnisse zurück. Dies ist die Art und Weise, wie ich es derzeit vorhabe. Gibt es einen besseren Weg, dies zu tun?

v = 1:100
n = 10
sidx = seq.int(from=1, to=length(v), by=n)
eidx = c((sidx-1)[2:length(sidx)], length(v))
thesum = sapply(1:length(sidx), function(i) sum(v[sidx[i]:eidx[i]]))

Das gibt:

thesum
 [1]  55 155 255 355 455 555 655 755 855 955