Seleccionar uno de los siguientes sectores a partir de la clasificación GICS (Global Industry Classification Standard) Sector salud (Helthcare A partir de la selección del sector, debe seleccionar cinco acciones del sector y desarrollar los siguientes puntos: 2. Realizar el análisis de las cinco acciones seleccionadas los datos del último año en R (diferentes a las del punto anterior )y: • Calcular y visualizar los promedios móviles de 30 y 60 días • Calcular y visualizar el Índice de Fuerza Relativa (RSI) • Calcular y visualizar las Bandas de Bollinger

Vamos a seleccionar el sector salud (Healthcare) y seleccionar cinco acciones del sector. A continuación, te presento las acciones seleccionadas:

1. Johnson & Johnson (JNJ)
2. Pfizer Inc. (PFE)
3. UnitedHealth Group Incorporated (UNH)
4. CVS Health Corporation (CVS)
5. Merck & Co., Inc. (MRK)

Ahora, vamos a realizar el análisis de las cinco acciones seleccionadas utilizando R. Primero, debemos instalar las bibliotecas necesarias:

```r
# Instalar las bibliotecas necesarias
install.packages("tidyverse")
install.packages("quantmod")
install.packages("PerformanceAnalytics")
install.packages("TTR")
```

Luego, cargamos las bibliotecas y cargamos los datos de las acciones:

```r
# Cargar las bibliotecas
library(tidyverse)
library(quantmod)
library(PerformanceAnalytics)
library(TTR)

# Cargar los datos de las acciones
jnj <- getSymbols("JNJ", from = "2022-01-01", to = "2023-01-01", auto.assign = FALSE)
pfe <- getSymbols("PFE", from = "2022-01-01", to = "2023-01-01", auto.assign = FALSE)
unh <- getSymbols("UNH", from = "2022-01-01", to = "2023-01-01", auto.assign = FALSE)
cvs <- getSymbols("CVS", from = "2022-01-01", to = "2023-01-01", auto.assign = FALSE)
mrk <- getSymbols("MRK", from = "2022-01-01", to = "2023-01-01", auto.assign = FALSE)
```

Ahora, vamos a calcular y visualizar los promedios móviles de 30 y 60 días:

```r
# Calcular los promedios móviles de 30 y 60 días
jnj_mm_30 <- MMA(jnj, 30)
jnj_mm_60 <- MMA(jnj, 60)
pfe_mm_30 <- MMA(pfe, 30)
pfe_mm_60 <- MMA(pfe, 60)
unh_mm_30 <- MMA(unh, 30)
unh_mm_60 <- MMA(unh, 60)
cvs_mm_30 <- MMA(cvs, 30)
cvs_mm_60 <- MMA(cvs, 60)
mrk_mm_30 <- MMA(mrk, 30)
mrk_mm_60 <- MMA(mrk, 60)

# Visualizar los promedios móviles
par(mfrow = c(2, 3))
plot(jnj_mm_30, main = "JNJ - Promedio Móvil 30 días")
plot(jnj_mm_60, main = "JNJ - Promedio Móvil 60 días")
plot(pfe_mm_30, main = "PFE - Promedio Móvil 30 días")
plot(pfe_mm_60, main = "PFE - Promedio Móvil 60 días")
plot(unh_mm_30, main = "UNH - Promedio Móvil 30 días")
plot(unh_mm_60, main = "UNH - Promedio Móvil 60 días")
plot(cvs_mm_30, main = "CVS - Promedio Móvil 30 días")
plot(cvs_mm_60, main = "CVS - Promedio Móvil 60 días")
plot(mrk_mm_30, main = "MRK - Promedio Móvil 30 días")
plot(mrk_mm_60, main = "MRK - Promedio Móvil 60 días")
```

Ahora, vamos a calcular y visualizar el Índice de Fuerza Relativa (RSI):

```r
# Calcular el RSI
jnj_rsi <- RSI(jnj, 14)
pfe_rsi <- RSI(pfe, 14)
unh_rsi <- RSI(unh, 14)
cvs_rsi <- RSI(cvs, 14)
mrk_rsi <- RSI(mrk, 14)

# Visualizar el RSI
par(mfrow = c(2, 2))
plot(jnj_rsi, main = "JNJ - RSI")
plot(pfe_rsi, main = "PFE - RSI")
plot(unh_rsi, main = "UNH - RSI")
plot(cvs_rsi, main = "CVS - RSI")
plot(mrk_rsi, main = "MRK - RSI")
```

Finalmente, vamos a calcular y visualizar las Bandas de Bollinger:

```r
# Calcular las Bandas de Bollinger
jnj_bb <- BBands(jnj, n = 20, sd = 2)
pfe_bb <- BBands(pfe, n = 20, sd = 2)
unh_bb <- BBands(unh, n = 20, sd = 2)
cvs_bb <- BBands(cvs, n = 20, sd = 2)
mrk_bb <- BBands(mrk, n = 20, sd = 2)

# Visualizar las Bandas de Bollinger
par(mfrow = c(2, 3))
plot(jnj_bb, main = "JNJ - Bandas de Bollinger")
plot(pfe_bb, main = "PFE - Bandas de Bollinger")
plot(unh_bb, main = "UNH - Bandas de Bollinger")
plot(cvs_bb, main = "CVS - Bandas de Bollinger")
plot(mrk_bb, main = "MRK - Bandas de Bollinger")
```

Espero que esto te ayude a realizar el análisis de las cinco acciones seleccionadas. Recuerda que es importante tener en cuenta que este es solo un ejemplo y que debes realizar tus propias investigaciones y análisis antes de tomar cualquier decisión de inversión.