Economic Convergence

install.packages(“tidyverse”) install.packages(“readxl”) install.packages(“stargazer”) library(tidyverse) library(conflicted) devtools::install_github(“r-lib/conflicted”) library(readxl) library(stargazer) rm(list= ls()) library(readxl) GDPpc <- read_excel(“C:/Users/90553/Desktop/GDPpc.xlsx”) View(GDPpc)

GDPpc1 <- GDPpc %>% gather(key = “year”, value = “gdp_pc”, 2:ncol(GDPpc)) View(GDPpc1)

GDPpc1 <- GDPpc1 %>% rename(country = Country Name)%>% select(country, year, gdp_pc)%>% filter(year == “1990”)

library(readxl) GDPpc_g <- read_excel(“C:/Users/90553/Desktop/GDPpc_g.xlsx”) View(GDPpc_g) GDPpc_g1<-GDPpc_g%>% gather(key= year,value= gdp_pc_g,5:ncol(GDPpc_g))%>% rename(country = Country Name)%>% select(country,year, gdp_pc_g)%>% filter(year >1989) aver_g <-GDPpc_g1%>% arrange(country,year) %>% group_by(country)%>% summarise(avrg_g = mean(gdp_pc_g,na.rm= TRUE)) View(aver_g) aver_g <- aver_g[-c(184), ]

df <- aver_g%>% left_join(GDPpc1, by = “country”) df1 <- df%>% select(country,avrg_g,gdp_pc)%>% drop_na() View(GDPpc_g) View(GDPpc_g) modl <- lm(avrg_g~gdp_pc, data = df1) View(modl) stargazer(modl, type = “text”) install.packages(“stargazer”) library(stargazer) stargazer(modl, type = “text”) View(aver_g)