Ich denke, dies ist sehr einfach, aber mein R Kung-Fu ist schwach. Ich versuche, einen Vektor von sich selbst in einer kumulativen Weise zu erstellen. Dieser Code funktioniert, aber ich hätte gerne etwas viel eleganteres und automatisiertes. Ich habe Millionen von Zeilen, die kumuliert werden müssen.
a <- c(4,4,5,1,9)
a <- a[order(-a[])]
k <- a[1:length(a)]/sum(a)
w <- c(k[1],k[1]+k[2],k[1]+k[2]+k[3],k[1]+k[2]+k[3]+k[4],k[1]+k[2]+k[3]+k[4]+k[5])
w
