Получение различий можно выполнить с помощью функции endpoints
из библиотеки xts
. Предполагая, что вы создали объект AAPL с помощью функции getSymbols
:
getSymbols('AAPL',from='2019-01-01', to = '2019-05-31’)
Ежемесячные различия:
monthlyDif <- AAPL$AAPL.Adjusted - lag(AAPL[endpoints(AAPL, on = 'months'),"AAPL.Adjusted"])
monthlyDif
AAPL.Adjusted
2019-01-31 NA
2019-02-28 7.392303
2019-03-29 16.735565
2019-04-30 10.678879
2019-05-30 -21.600189
Имейте в виду, что, используя комбинацию аргумента on
и аргумента k
, вы также можете получить разницу от миллисекунд до лет или множителей, таких как двухнедельные различия и т. Д.
т.е. чтобы получить 2-недельные различия:
twoWeeksDif <- AAPL$AAPL.Adjusted - lag(AAPL[endpoints(AAPL, on = 'weeks',k = 2),"AAPL.Adjusted"])
twoWeeksDif
AAPL.Adjusted
2019-01-04 NA
2019-01-18 8.490769
2019-02-01 9.621521
2019-02-15 4.593429
2019-03-01 4.532547
2019-03-15 11.107224
2019-03-29 3.815307
2019-04-12 8.885773
2019-04-26 5.409180
2019-05-10 -6.336273
2019-05-24 -18.209992
2019-05-30 -0.669998