library(WDI)

dünya bankası veri indirmek

data <- WDI(indicator=c("FB.ATM.TOTL.P5","FB.CBK.BRCH.P5"))
library(ggplot2)

kesit veri

2005

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
## ✔ lubridate 1.9.3     ✔ tibble    3.2.1
## ✔ purrr     1.0.2     ✔ tidyr     1.3.1
## ── 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
data2005 <- data %>% filter(year==2005)

zaman serisi

dataTR <- data %>% filter(country=="Turkiye")
library(ggplot2)
ggplot(dataTR,aes(year,FB.ATM.TOTL.P5)) + geom_line()
## Warning: Removed 46 rows containing missing values or values outside the scale range
## (`geom_line()`).

Regresyon

model <- lm(FB.ATM.TOTL.P5 ~ FB.CBK.BRCH.P5,data <-dataTR)
summary(model)
## 
## Call:
## lm(formula = FB.ATM.TOTL.P5 ~ FB.CBK.BRCH.P5, data = data <- dataTR)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -22.470 -14.229  -4.234  14.822  25.550 
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)     -32.288     39.812  -0.811   0.4300  
## FB.CBK.BRCH.P5    5.749      2.347   2.450   0.0271 *
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 17.44 on 15 degrees of freedom
##   (47 observations deleted due to missingness)
## Multiple R-squared:  0.2858, Adjusted R-squared:  0.2381 
## F-statistic: 6.001 on 1 and 15 DF,  p-value: 0.02706

KHVKŞHYCŞYCŞHCJHVŞHCJJHC MBVKHCH