Instalamos los paquetes necesarios
Para el trabajo necesitamos escoger la fecha que vamos a usar y para esto utilizaremos el formato aƱo mes dia. Decidimos que nuestro trabajo estara enfocado a una estrategia en corto plazo por lo que nuestra ventana de tiempo sera desde enero del presente aƱo
fecha_inicio= "2022-01-03"
fecha_final= "2022-05-04"
Usamos el comando getSymbols para importar los precios con el Ticker con el que se encuentra en Yahoo Finance. Teniendo en cuenta la nomenclatura si necesitaramos un indice tendriams que agregar ^ previo al ticker y para una acción bastaria con solamente el ticker
precios= getSymbols("AAPL",src= "yahoo", from= fecha_inicio, to= fecha_final, periodicity= "daily")
En este caso decidimos trabajr con los datos de Apple y los datos encontrados serian los siguientes
head(AAPL)
## AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted
## 2022-01-03 177.83 182.88 177.71 182.01 104487900 181.5117
## 2022-01-04 182.63 182.94 179.12 179.70 99310400 179.2080
## 2022-01-05 179.61 180.17 174.64 174.92 94537600 174.4411
## 2022-01-06 172.70 175.30 171.64 172.00 96904000 171.5291
## 2022-01-07 172.89 174.14 171.03 172.17 86709100 171.6987
## 2022-01-10 169.08 172.50 168.17 172.19 106765600 171.7186
Ahora vamos a graficar los datos, para esto urilizaremos la grafica predeterminada, donde existe la función ROC para rendimientos simples y logaritmicos
chartSeries(AAPL, type = "candlesticks", subset= "last 4 months", theme = chartTheme("black"), name= "Grafico de velas")
addROC(n=10)