Objetivo

El objetivo del presente trabajo es determinar si el precio del oro aumenta durante una crísis económica, a costa de la disminución de la bolsa de valores. Con el objetivo de usarlo como instrumento para protegerse durante las crísis.

Análisis

Primeramente cargamos las librerias que usaremos

library(quantmod)
library(tidyverse)
library(lubridate)
library(plotly)
library(clipr)

Obtenemos los precios del oro usando la librería ‘quantmod’. La fuente por defecto es Yahoo Finantials

getSymbols('GLD') # asignamos el precio del oro a la variable GLD
## [1] "GLD"

Vemos la última parte de los datos

tail(GLD)
##            GLD.Open GLD.High GLD.Low GLD.Close GLD.Volume GLD.Adjusted
## 2019-08-20   141.77   142.26  141.60    142.21    7478500       142.21
## 2019-08-21   141.62   142.17  141.46    141.76    8114700       141.76
## 2019-08-22   141.39   141.90  141.17    141.40    6846500       141.40
## 2019-08-23   141.84   144.33  141.64    144.17   20282200       144.17
## 2019-08-26   144.35   144.97  143.91    144.19   12195800       144.19
## 2019-08-27   144.30   145.68  144.27    145.57   12844100       145.57

Los datos obtenidos por el comando ‘getSymbols’ tienen el precio de apertura, el mas alto, el mas bajo, el de cierre, el volumen negociado y si hay ajuste al final del día

Ahora veamos cuantos datos tenemos

nrow(GLD)
## [1] 3185

Tenemos 3185 registros