library(readxl)
library(writexl)
library(ggplot2)
datos1=read_excel("INDUSTRIAS.xlsx",sheet = 2)
head(datos1,3)
## # A tibble: 3 × 1
##      EXAMEN
##       <dbl>
## 1 12777053.
## 2 12710459.
## 3 12019393.
d1s=ts(datos1,start = 1980,frequency = 1)
plot(d1s)

INTERPRETACION… NOS DAMOS CUENTA QUE EL GRAFICO TIENE UNA ASENDENCIA ELEVADA L CUAL EN EL TRANSCURSO DE LOS AÑOS

PRONOSTICO

d1sw=HoltWinters(d1s,gamma = F)
d1sp=predict(d1sw,3)
plot(d1sw,d1sp,main="Oferta final: 1980:2024")

GUARDAR DATOS

Perido=seq(1980,2027,1)
EXAMEN=rbind(d1s,d1sp)
Dato=c(rep("Real",45),rep("Pronosticado",3))
Datos_oferta=data.frame(Perido,EXAMEN,Dato)
write_xlsx(Datos_oferta,"dato_oferta.xlsx")

`

ggplot(Datos_oferta,aes(x=Perido,y=EXAMEN,col=Dato))+
  geom_line()+
  geom_point()+
  theme_bw()

INTERPRETACION…