librerias

library(readxl)
library(writexl)
library(ggplot2)
datos1=read_excel("examen2.xlsx",2)
datos1
## # A tibble: 45 × 1
##        pib
##      <dbl>
##  1 164349.
##  2 182701.
##  3 186121.
##  4 191185.
##  5 201947.
##  6 196344.
##  7 197518.
##  8 211268.
##  9 221976.
## 10 235462.
## # ℹ 35 more rows
head(datos1,3)
## # A tibble: 3 × 1
##       pib
##     <dbl>
## 1 164349.
## 2 182701.
## 3 186121.

grafico

d1s=ts(datos1,start=1980,frequency = 1)
plot(d1s)

INTERPRETACION EN LOS DATOS PODEMOS OBSERVAR UNA TENDENCIA CRECIENTE, DE MODELO ADITIVO SIN PATRONES REPETITIVOS

## pronostico

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

Guardar datos

Periodo=seq(1980,2027,1)
pib=rbind(d1s,d1sp)
Dato=c(rep("Real",45),rep("Pronosticado",3))
Datos_PIB=data.frame(Periodo,pib,Dato)
write_xlsx(Datos_PIB,"Datos_PIB.xlsx")
ggplot(Datos_PIB,aes(x=Periodo,y=pib,col=Dato))+geom_line()+geom_point()+theme_bw()

INTERPRETACION ES UNA TENDENCIA CRECIENTE, CON UN PRONOSTICO DE INCREMENTO DE 1400915,733 PARA EL 2027, SIENDO EL INCREMENTO PARA EL 2025 DE 1305573,236 ESTO MUESTRA UN POSIBLE CRECIEMIENTO SEGUN EL PRONOSTICO Y PARA EL 2026 ES DE 1353244,484