WALMEX

ANALISIS WALMEX

Wal-Mart de México, S.A.B de C.V. (BMV: WAKMEX), es una empresa dedicada al sector comercio. Comenzó operaciones en México en 1991 tras asociarse Wal-Mart Stones(EUA) con el grupo Cifra, provocando una expansión de grupo Wal-Mart Stone, que actualmente es Wal-Mart, Inc., que es una corporación multinacional de tiendas de origen estadounidense, que opera cadenas de grandes almacenes de descuento y clubes de almacenes.

Wal-Mart es la compañía con los mayores ingresos del mundo, casi medio trillón de dólares al año, así como el empleador privado más grande del mundo con 2,3 millones de empleados de acuerdo con la revista Forbes. Aparte de México y de Estados Unidos cuenta con presencia en más de 27 países en todo el mundo.

GAFICA DEL COMPORTAMIENTO DE 2015 A 2020

Grífico 1. Comportamiento del precio de cierre de WALMEX de enero de 2015 a febrero de 2020

DESCOMPOSICIÓN

Sys.setenv(LANGUAGE="es")
  
  #Primero se extre el precio de cierre de mi base de datos
  
    Cierre<-WALMEX.MX$WALMEX.MX.Close

  #Segundo, se especifica el inicio de la serie y la ventana de tiempo para hacer la descomposici?n

    WALMEX_des <- ts(Cierre, start = c(2015,01,02), frequency = 252) #ts convierte en series tiempo la serie
  
  #Tercero, se hace la descomposici?n de variables

    WALMEX_stl<-stl(WALMEX_des[, 1], s.window = "periodic")

  #Cuarto, se grafica la descomposición

    plot(WALMEX_stl, main="Descomposición de GMEXICO a w=252",col= "violet")

DESCOMPOSICIÓN POR AÑO

Sys.setenv(LANGUAGE="es")
ggseasonplot(WALMEX_des,year.labels=TRUE,year.labels.left=T) +
  ylab("Precio de cierre") +
  xlab("Componente estacional") +
  ggtitle("Grifico estacional de walmex por año")

PRONOSTICO

Sys.setenv(LANGUAGE="es")
pronostico<-forecast(WALMEX_des, h=250) #h es el n?mero de d?as que quiero pronosticar
View(pronostico)

fecha<-format(date_decimal(as.numeric(row.names(as.data.frame(pronostico)))),"%Y-%m-%d")

pronostico_completo<-cbind(fecha,as.data.frame(pronostico))
View(pronostico_completo)

##GRAFICO DE PRONOSTICO

Sys.setenv(LANGUAGE="es")
autoplot(pronostico) + geom_forecast(h=250) + #h es el n?mero de d?as a pronosticar
  ylab("Precio de cierre") +
  xlab("Tiempo") +
  ggtitle("Pron?stico de Grupo Mexico a 252 días")

SUBCONJUNTOS DE PRONOSTICO

Sys.setenv(LANGUAGE="es")
subcojunto <- window(WALMEX_des, start = 2018)
autoplot(subcojunto) + geom_forecast(h=200)+
  ggtitle("Pronistico de WALMEX a 200 dias, w= 252")

VALIDACION DE PRONOSTICO

Tabla 1. Comparación de datos pronosticados
Fecha Datos Real Datos pronosticados w=252 Datos pronosticados w=250 Diferencia w=252 Diferencia w=250
20/02/2020 55.35 56.29549 57.94665 2.59665 0.23553
21/02/2020 55.28 56.36810 58.10256 2.82256 0.77405

Fuente: Elaboración propia con datos de Yahoo Finance

Tabla 2. Comparación del AIC y MSE
AIC, w=252 AIC, w=2500 MSE, w=252 MSE, w=250
7992.407 7921.449 0.3833831 0.3735228

CONCLUSIONES

Este inicio de año para las acciones de WALMEX no ha sido del todo favorable , con las nuevas noticias que salieron a la luz el pasado 19 de febrero del presente año , se le pide el pago de $10,000 de pesos de evasión fiscal al SAT (MILENIO, 2020), por lo que sus acciones han llegado a caer un 1.47 por ciento a 57.46 pesos, aunque previamente llegaron a descender 2.02 % , aunque los datos de nuestro pronóstico realizado indica que es favorable comprar acciones para los días 20 y 21 de Febrero, con esta noticia no es recomendable comprar ya que se perdería , mi recomendación es observar las siguientes semanas ya que si se recupera WALMEX tiene muchas posibilidades de recuperarse rápidamente.

Bibliografía MILENIO. (19 de FEBREO de 2020). Acciones de Walmart caen tras reclamo del SAT. MILENIO.

Fuente: Elaboración propia