Analisis Inflasi

# Membuat library yang diperlukan
library(forecast)
## Warning: package 'forecast' was built under R version 4.3.2
## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo
# Data inflasi Indonesia dari tahun 2003 hingga 2023
inflasi <- c(6.59, 6.45, 10.45, 13.1, 6.4, 9.84, 4.79, 5.12, 5.41, 4.28, 8.38, 8.36, 3.35, 3.02, 3.61, 3.13, 2.72, 1.75, 1.75, 2,6)

#Mengubah Data Menjadi Seri Waktu
seri_waktu <- ts (inflasi, start = 2003, end = 2022, frequency = 1)

# Memodelkan Data dengan ARIMA
model_arima <- auto.arima(seri_waktu)

#Melakukan Prediksi untuk 10 Tahun kedepan
prediksi <- forecast(model_arima, h = 10)

#Menampilkan Hasil Prediksi
print(prediksi)
##      Point Forecast     Lo 80     Hi 80      Lo 95     Hi 95
## 2023              2 -1.606936  5.606936  -3.516332  7.516332
## 2024              2 -3.100978  7.100978  -5.801272  9.801272
## 2025              2 -4.247396  8.247396  -7.554568 11.554568
## 2026              2 -5.213872  9.213872  -9.032665 13.032665
## 2027              2 -6.065354 10.065354 -10.334894 14.334894
## 2028              2 -6.835152 10.835152 -11.512200 15.512200
## 2029              2 -7.543055 11.543055 -12.594844 16.594844
## 2030              2 -8.201955 12.201955 -13.602544 17.602544
## 2031              2 -8.820808 12.820808 -14.548997 18.548997
## 2032              2 -9.406133 13.406133 -15.444175 19.444175
plot(prediksi)

```