Exemplos com IBIT e MSTR
require(quantmod)
tickers_acoes = c("IBIT","MSTR")
BTC = getSymbols(tickers_acoes[1], src = 'yahoo',
from = "2020-08-01", to =Sys.time(),
periodicity = "daily", auto.assign = !TRUE,
warnings = FALSE) #%>%
MSTR = getSymbols(tickers_acoes[2], src = 'yahoo',
from = "2020-08-01", to =Sys.time(),
periodicity = "daily", auto.assign = !TRUE,
warnings = FALSE) #%>%