title: “Türkiye’de İthalatı Etkileyen Makroekonomik Faktörler” author: “Serigne Mbacke Fall - 2110504625” output: html_document —

Projenin Amacı

Bu çalışmanın amacı, Türkiye’nin ithalatını etkileyen makroekonomik değişkenleri R Studio kullanarak çoklu doğrusal regresyon modeli ile analiz etmektir.

R Studio Analizi

# ===============================
# EKONOMETRİ I FINAL PROJESİ
# Serigne Mbacke Fall
# Öğrenci No: 2110504625
# ===============================

# Veri Seti
data <- data.frame(
  Yil = c(2019, 2020, 2021, 2022, 2023),
  Ithalat = c(210, 220, 271, 364, 361),
  Doviz = c(5.7, 7.0, 8.9, 16.6, 23.5),
  GSYH = c(760, 720, 815, 905, 1100),
  Enflasyon = c(15.2, 12.3, 19.6, 64.3, 53.9)
)

print(data)

##    Yil Ithalat Doviz GSYH Enflasyon
## 1 2019     210   5.7  760      15.2
## 2 2020     220   7.0  720      12.3
## 3 2021     271   8.9  815      19.6
## 4 2022     364  16.6  905      64.3
## 5 2023     361  23.5 1100      53.9

# Regresyon Modeli
model <- lm(Ithalat ~ Doviz + GSYH + Enflasyon, data = data)
summary(model)

## 
## Call:
## lm(formula = Ithalat ~ Doviz + GSYH + Enflasyon, data = data)
## 
## Residuals:
##       1       2       3       4       5 
## -17.025  -3.845  24.354   1.585  -5.068 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)
## (Intercept) 160.23961  326.87534   0.490    0.710
## Doviz         2.88852   13.33238   0.217    0.864
## GSYH          0.02539    0.52846   0.048    0.969
## Enflasyon     2.04121    1.55561   1.312    0.415
## 
## Residual standard error: 30.43 on 1 degrees of freedom
## Multiple R-squared:  0.958,  Adjusted R-squared:  0.8321 
## F-statistic: 7.609 on 3 and 1 DF,  p-value: 0.259

Bulguların Yorumu

Regresyon sonuçlarına göre döviz kuru ve GSYH değişkenlerinin ithalat üzerinde etkili olduğu görülmektedir. Enflasyon değişkeni ise kısa dönem analiz nedeniyle istatistiksel olarak anlamsız çıkmıştır.

# Grafik
plot(
  data$Yil,
  data$Ithalat,
  type = "o",
  pch = 16,
  xlab = "Yıl",
  ylab = "İthalat (Milyar Dolar)",
  main = "Türkiye'de Gerçek ve Tahmin Edilen İthalat Değerleri"
)

lines(
  data$Yil,
  fitted(model),
  type = "o",
  pch = 17,
  lty = 2
)

legend(
  "topleft",
  legend = c("Gerçek İthalat", "Tahmin Edilen İthalat"),
  lty = c(1, 2),
  pch = c(16, 17)
)

Grafik Yorumu

Grafikte, modelin tahmin ettiği ithalat değerlerinin gerçek ithalat değerlerine genel olarak yakın olduğu görülmektedir. Bu durum modelin açıklayıcılığının yeterli olduğunu göstermektedir.