Jorge_Escalona-RMK.R

library(readxl)
Acciones <- read_excel("Datos R Markdown.xlsx")
View(Acciones)

Acc_SP = ts(Acciones$SP500, frequency =365, start = c(15,04,2019))
Acc_Nvidia = ts(Acciones$NVIDIA, frequency =365, start = c(15,04,2019))

plot(Acc_SP, col = "blue") 

plot(Acc_Nvidia, col = "green")

PreProm_SP500 = mean(Acciones$SP500)
PreProm_NVIDIA = mean(Acciones$NVIDIA)

Desv_SP500 = sd(Acciones$SP500)
Desv_NVIDIA = sd(Acciones$NVIDIA)

if (PreProm_SP500 < PreProm_NVIDIA) {
  "Es más rentable invertir en NVIDIA"
} else {"Es más rentable invertir en SP500"
}

## [1] "Es más rentable invertir en SP500"

if (Desv_SP500 < Desv_NVIDIA) {
  "Es mas volatil NVIDIA"
} else if (Desv_NVIDIA < Desv_SP500) {"Es mas volatil SP500"
}

## [1] "Es mas volatil SP500"