Act1

Precios <- dygraph(retornos, main = "Precios de Verizon, Pfizer, BOFA y Peloton") %>%
  dyAxis("y", label = "Precios") %>%
  dyRangeSelector(dateWindow = c("2020-01-01", "2023-08-31")) %>%
  dyOptions(colors = RColorBrewer::brewer.pal(4, "Set1"))

Precios

VZ_2020 <- subset(precio.cierre[, 1], index(precio.cierre) >= "2020-01-01" & index(precio.cierre) <= "2023-08-31")
VZ_2020[c(1:5, nrow(VZ_2020))]

##            VZ.Close
## 2020-01-02    61.05
## 2020-01-03    60.40
## 2020-01-06    60.27
## 2020-01-07    59.60
## 2020-01-08    59.71
## 2023-08-30    34.64

BAC_2020 <- subset(precio.cierre[, 1], index(precio.cierre) >= "2020-01-01" & index(precio.cierre) <= "2023-08-31")
BAC_2020[c(1:5, nrow(BAC_2020))]

##            VZ.Close
## 2020-01-02    61.05
## 2020-01-03    60.40
## 2020-01-06    60.27
## 2020-01-07    59.60
## 2020-01-08    59.71
## 2023-08-30    34.64

par(mfrow = c(2, 1))

# Histograma 2020
hist(VZ_2020, col = "green", border = "yellow", main = "Densidad de los Precios Verizon en 2020", xlab = "Precios Cierre", breaks = 20)
lines(density(VZ_2020), lwd = 2, col = 'black')

# Histograma 2020
hist(BAC_2020, col = "orange", border = "purple", main = "Densidad de los Precios BANCODEAMERICA en 2020", xlab = "Precios Cierre", breaks = 20)
lines(density(BAC_2020), lwd = 2, col = 'black')