La emisora Genomma Lab (TICKER:LABB.MX) Es una empresa ciento por ciento mexicana, joven, din?mica e innovadora. Se ocupa y preocupa por encontrar soluciones para mejorar la calidad de vida y la salud de todos aquellos que se benefician con el uso apropiado de nuestros productos.[1]

Genomma Lab tiene presencia en M?xico, Brasil, EUA, Argentina, Colombia y doce paises mas, cotiza en bolsa desde el a?o de 1966 y es considerada como una de las acciones m?s burs?tiles en el mercado mexicano. Adem?s de la produccion y comercializacion de productos dermocosmeticos, Genomma Lab Integra una extensa red que agrupa a empresas e instituciones que investigan, fabrican y comercializan productos farmac?uticos y dermocosm?ticos, elaborados con los m?s altos est?ndares de calidad, apegados al cumplimiento de la normatividad nacional: las buenas pr?cticas de fabricaci?n, de documentaci?n y anal?ticas [2].

En el siguiente gr?fico, se presenta el comportamiento del precio de cierre de Genomma Lab.

Gr?fico 1. Comportamiento del precio de cierre de GLAB de enero de 2015 a febrero de 2020

# Grafico Interactivo 2

  dygraph(LABB.MX$LABB.MX.Close) %>%
  dyOptions(labelsUTC = TRUE, fillGraph=TRUE, fillAlpha=0.5, drawGrid = F, colors="orange") %>%
  dyRangeSelector() %>%
  dyCrosshair(direction = "vertical") %>%
  dyHighlight(highlightCircleSize = 5, highlightSeriesBackgroundAlpha = 0.2, hideOnMouseOut = F)  %>%
  dyRoller(rollPeriod = 1)
  #Primero se extre el precio de cierre de mi base de datos
  
    Cierre<-LABB.MX$LABB.MX.Close
  #Segundo, se especifica el inicio de la serie y la ventana de tiempo para hacer la descomposici?n

    LABB.MX_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

    LABB.MX_stl<-stl(LABB.MX_des[, 1], s.window = "periodic")
  #Segundo, se especifica el inicio de la serie y la ventana de tiempo para hacer la descomposici?n

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

    LABB.MX2_stl<-stl(LABB.MX2_des[, 1], s.window = "periodic")
  #Cuarto, se grafica la descomposici?n

    plot(LABB.MX_stl, main="Descomposici?n de RA.MX a w=252",col= "seagreen2")

#Descomposici?n estacional por a?o

ggseasonplot(LABB.MX_des,year.labels=TRUE,year.labels.left=T) +
  ylab("Precio de cierre") +
  xlab("Componente estacional") +
  ggtitle("Gr?fico estacional de LABB.MX por a?o")

write.csv(pronostico_completo, "Pictures.csv")
#Guarda los resultados

write.csv(pronostico2_completo, "Pictures.csv")

Referencias