Nasdaq

NASDAQ

library("tidyverse")
library("tidyquant")
library("prophet")
library("forecast")
library("xts")
library("dygraphs")

getSymbols("NDAQ", 
           from="2020-10-01",
           to="2021-01-01",
           src="yahoo")

## [1] "NDAQ"

chartSeries(NDAQ, 
            theme= chartTheme("black"),
            bar.type="hlc",
            up.col="green",
            dn.col="red")

plot(NDAQ[,6])

MejorModelo<- auto.arima(NDAQ[,6])
MejorModelo

## Series: NDAQ[, 6] 
## ARIMA(0,1,0) 
## 
## sigma^2 = 3.285:  log likelihood = -126.85
## AIC=255.7   AICc=255.77   BIC=257.85

pronostico=forecast(MejorModelo, 30, level=95)
plot(pronostico)