Ödev 1

Dünya bankasından veri inidrmek

library(WDI)

data = WDI(indicator=c("SH.DYN.MORT","EG.ELC.ACCS.ZS"))

Kesit veri

2008

library(tidyverse)

## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.4     ✔ readr     2.1.5
## ✔ forcats   1.0.0     ✔ stringr   1.5.1
## ✔ ggplot2   3.5.1     ✔ tibble    3.2.1
## ✔ lubridate 1.9.3     ✔ tidyr     1.3.1
## ✔ purrr     1.0.2     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors

data2008 <- data %>% filter(year==2008)

zaman serisi

dataPE <- data %>% filter(country=="Peru")

library(ggplot2)

ggplot(dataPE, aes(year, SH.DYN.MORT))+ geom_line()

## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_line()`).

Kayıp onyıl ve 80’ler krizi 1980’ler boyunca Peru’da ekonomik durgunluk dönemi yaşandı.Yıl sonunda ciddi bir makroekonomik krize dönüştü.Peru İç Savaşı, 1980’li yıllardan bu yana Peru’da “işçi ve köylü bir hükûmetin kurulmasını” amaçlayan ve Maoist hareket olan Aydınlık Yol ve MRTA ile hükûmet arasında gerçekleşen savaştır.

regresyon

 model <- lm(SH.DYN.MORT ~ EG.ELC.ACCS.ZS, data = dataPE)

summary(model)

## 
## Call:
## lm(formula = SH.DYN.MORT ~ EG.ELC.ACCS.ZS, data = dataPE)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -11.423  -5.474   0.458   3.444  24.454 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    143.9175    10.6728   13.48 5.07e-14 ***
## EG.ELC.ACCS.ZS  -1.3791     0.1288  -10.70 1.38e-11 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 7.791 on 29 degrees of freedom
##   (33 observations deleted due to missingness)
## Multiple R-squared:  0.798,  Adjusted R-squared:  0.791 
## F-statistic: 114.6 on 1 and 29 DF,  p-value: 1.381e-11

iki verinin arasında negatif yönlü bir ilişki vardır.