Trabajo Final Informática

Trabajo Final Análisis y Pronóstico Acción Apple (AAPL)

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

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

## [1] "AAPL"

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

plot(AAPL[,6])

ModeloApple<- auto.arima(AAPL[,6])
ModeloApple

## Series: AAPL[, 6] 
## ARIMA(0,1,0) 
## 
## sigma^2 = 6.501:  log likelihood = -148.36
## AIC=298.71   AICc=298.78   BIC=300.86

pronosticoApple=forecast(ModeloApple, 30, level=95)
plot(pronosticoApple)