R: Примените. Ежегодные суммы с января не включительно до января в следующем году включительно. Как я могу сделать сумму с декабря по декабрь?

Question

В R код ниже:

apply.yearly(XTS_object, sum)

возвращает суммы с января в первый год, не включительно, до января в следующем году включительно.

Как я могу сделать сумму с декабря по декабрь?

Answer 1

Экстракт endpoints и использовать с period.apply:

getSymbols("SPY", from = "2013-12-01")
# Use your own data. Assuming Data already starts from December, otherwise extract all months and get Decembers only:
december <- endpoints(SPY, k = 12)
[1]   0 251 503

SPY[251 + 1]
               SPY.Open   SPY.High    SPY.Low  SPY.Close SPY.Volume SPY.Adjusted
    2014-12-01 206.399994 206.539993 205.380005 205.759995  103968400   199.464546

period.apply(Ad(SPY), december + 1, sum)