ANALISIS INO VS GME

library(readr)
INO <- read_csv("C:/Users/CITY CLUB 1019/Desktop/BASE/INO.csv")

## Rows: 251 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): Date
## dbl (2): INO, GME
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

View(INO)

Cierre_INO = ts(INO$INO, frequency =365, start = c(17,04,2023))
Cierre_GME = ts(INO$GME, frequency =365, start = c(17,04,2023))

plot(Cierre_GME, col = "blue") 
lines(Cierre_INO, col = "green")

library(forecast)

## Warning: package 'forecast' was built under R version 4.3.3

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

SDINO = sd(Cierre_INO)
SDGME = sd(Cierre_GME)

if (min(Cierre_INO) < min(Cierre_GME)) {"Vale mas la accion de GME"} else {auto.arima(Cierre_GME)}

## [1] "Vale mas la accion de GME"

if (SDINO < SDGME) {"GME tiene mayor volatilidad"} else if (SDGME < SDINO) {"INO tiene mayor volatilidad"}

## [1] "GME tiene mayor volatilidad"