die Inkonsistenz der jetzigen Excel-Datei mit den Daten, mit denen ich besher gearbeitet habe, besteht darin, dass ich bei den bisherigen Daten in abnormal_returns_buys_agg nur 5 Zeilen habe (bzw. in abnormal_returns_buys nur 7).
Ich bin weiterhin der Meinung, das macht der von mir vorgeschlagene Code so, wie es in den Formeln in der Excel-Datei implementiert ist:darrgans hat geschrieben: ↑Mo Aug 06, 2018 8:39 pm die Berechnungen, wie ich auf die Werte "X_20to0, X_0to1, X_0to5, X_0to10, X_0to20" berechne sind noch als Formeln im zweiten Sheet der "Test"-Excel noch in den Zellen enthalten.
Das sind die Summen von:
X20to0: 20 Tage vor dem Event bis zum Event aufsummiert
X_0to1: 1 Tag nach dem Event
X_0to5: 5 Tage nach dem Event aufsummiert
X_0to10: 10 Tage nach dem Event aufsummiert
X_0to20: 20 Tage nach dem Event aufsummiert
Code: Alles auswählen
kumRend <- function(x) c(sum(x[1:20]), cumsum(x[-(1:21)])[c(1,5,10,20)])
t(apply(abnormal_returns_buys_agg[-(1:2)], 1, kumRend))
Du kannst ja auch selber testen:
Code: Alles auswählen
kumRend(1:41)
c(sum(1:20), 22, sum(22:26), sum(22:31), sum(22:41))
Ich hatte vorher nicht nach den Formeln gesehen - da hatte ich wohl einen kurzen Blackout. Statt dessen war mir die oben beschriebene Inkonsistenz ins Auge gefallen.Die Datei mit den Formeln, falls ich diese aus der letzten gelöscht habe, findest du nochmal anbei.
Viele Grüße, Jörg