A

library(readxl)
library(writexl)
library(ggplot2)
datos=read_excel("prod_in_bruto.xlsx")
ds=ts(datos,start = 1980,frequency = 1)
plot(ds)

## Interpretación

Entre 1980 a inicios de 1990 de observa un estancamiento con ligeras caidas, dede 1990 se puede observar una tendencia de crecimiento, alrededor de 2019 a 2020, se aprecia una caída abrupta en el PIB, probablemente asociada a la pandemia COVID-19, a partir de 2021 en adelante, el PIB retoma el crecimiento y alcanza a mayores niveles registrados antes de la caída.

B

dsw=HoltWinters(ds,gamma = F)
dsp=predict(dsw,3)
dsp
## Time Series:
## Start = 2025 
## End = 2027 
## Frequency = 1 
##           fit
## [1,] 46682724
## [2,] 47658481
## [3,] 48634237
plot(dsw,dsp,main = "oferta final")

Periodo=seq(1980,2027,1)
Pib=rbind(ds,dsp)
Dato=c(rep("real",45),rep("Pronosticado",3))

Datos_pib=data.frame(Periodo,Pib,Dato)
write_xlsx(Datos_pib,"datos_examen2.xlsx")

C

ggplot(Datos_pib,aes(x=Periodo,y=Pib,col=Dato))+geom_line()+geom_point()+theme_bw()

## interpretar

desde 2024 se puede observar el pronostico futuro hasta la gestión 2027 se ve el crecimiento a niveles más altos a los registrados hasta el momento.