При использовании alphavantage вы можете получить данные за последние 100 дней или данные за 20 лет. Среднего уровня не существует.
Чтобы получить данные за 20 лет, необходимо установить размер "полный". См. Ниже.
amzn_av <- getSymbols.alphavantage('AMZN',
auto.assign=FALSE,
api.key=api_key,
output.size = "full") # default compact => 100 days
str(amzn_av)
An ‘xts’ object on 2000-03-20/2020-03-20 containing:
Data: num [1:5033, 1:5] 63.5 65.1 70.9 69.5 67.7 ...
Если вы хотите указать период, вы можете использовать tiin go:
amzn_tiingo <- getSymbols.tiingo('AMZN',
from = "2010-01-01",
to = Sys.Date()-6,
auto.assign = FALSE,
api.key = api_tiingo)
str(amzn_tiingo)
An ‘xts’ object on 2010-01-04/2020-03-13 containing:
Data: num [1:2566, 1:5] 136 133 135 132 131 ...
Обратите внимание, что вы можете просто использовать getSymbols
но в опции source
укажите "av" или "tiin go".