Ödev 6

Nüfus artışı (yıllık %) ve GSYİH büyümesi (yıllık %)

library(stargazer)

## 
## Please cite as:

##  Hlavac, Marek (2018). stargazer: Well-Formatted Regression and Summary Statistics Tables.

##  R package version 5.2.2. https://CRAN.R-project.org/package=stargazer

library(dynlm)

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

library(rmarkdown)

library(WDI)
dm = WDI(indicator=c(nüf='SP.POP.GROW', gdp='NY.GDP.MKTP.KD.ZG' ), country=c('TR'),  start=1992, end=2020)

data(dm, package = "WDI")

## Warning in data(dm, package = "WDI"): data set 'dm' not found

paged_table(dm)

tsph<-ts(dm, start = 1948)
plot(tsph[,"nüf"],lty=1, lwd=1, ylim=c(0,15), ylab=("nüf ve gdp"))
lines(tsph[,"gdp"],lty=2, lwd=2)
legend("topright", c("nüfus","gdp"), lty=c(1,2), lwd = c(1,2))

model1<-dynlm(nüf~L(nüf),data=tsph, end=1996)
model2<-dynlm(nüf~L(nüf) + L(gdp),data=tsph, end=1996)

stargazer(model1,model2,type ="text" )

## 
## =================================================================
##                                  Dependent variable:             
##                     ---------------------------------------------
##                                          nüf                     
##                              (1)                    (2)          
## -----------------------------------------------------------------
## L(nüf)                     0.981***               0.980***       
##                            (0.100)                (0.103)        
##                                                                  
## L(gdp)                                             0.0002        
##                                                   (0.003)        
##                                                                  
## Constant                    0.009                  0.009         
##                            (0.151)                (0.154)        
##                                                                  
## -----------------------------------------------------------------
## Observations                  28                     28          
## R2                          0.786                  0.786         
## Adjusted R2                 0.778                  0.769         
## Residual Std. Error    0.079 (df = 26)        0.081 (df = 25)    
## F Statistic         95.407*** (df = 1; 26) 45.875*** (df = 2; 25)
## =================================================================
## Note:                                 *p<0.1; **p<0.05; ***p<0.01