Tengo un problema para optimizar mi código, ya que de momento es funcional pero muy básico. La situación es esta:
# 2) Establecer los activos que contemplados en el estudio ####
stks <- c("AAPL","MSFT","TSLA","FB", "LMT", "AMZN", "NVDA")
# 3) Obtener los datos ####
getSymbols(stks,
from = "2020-01-01",
to = "2020-06-26", #Sys.Date()
src = "yahoo",
adjust = TRUE)
Hasta ahí todo correcto, el problema es cuando quiero obtener los retornos
# 4) Obtener los rendimientos de los activos ####
aapl_returns <- Return.calculate(Cl(AAPL))
aapl_returns <- aapl_returns[(-1),] #elimina el NA inicial
msft_returns <- Return.calculate(Cl(MSFT))
msft_returns <- msft_returns[(-1),] #elimina el NA inicial
tsla_returns <- Return.calculate(Cl(TSLA))
tsla_returns <- tsla_returns[(-1),] #elimina el NA inicial
fb_returns <- Return.calculate(Cl(FB))
fb_returns <- fb_returns[(-1),] #elimina el NA inicial
lmt_returns <- Return.calculate(Cl(LMT))
lmt_returns <- lmt_returns[(-1),] #elimina el NA inicial
amzn_returns <- Return.calculate(Cl(AMZN))
amzn_returns <- amzn_returns[(-1),] #elimina el NA inicial
nvda_returns <- Return.calculate(Cl(NVDA))
nvda_returns <- nvda_returns[(-1),] #elimina el NA inicial
Esta parte es la que no logro optimizar ya que si trato de meter o quitar una acción debo proceder a borrar o agregar mas linea de código. al final trate de hacer algo asi, pero no logro tener éxito para después agregarle la función de Return.calculate()
returns <- lapply(stks,paste0,stks[0],"_returns")
Muchas gracias.