Publications by Jungkeon Jo
[AAEC 8610] HW2 Highway Accidents in 1973
setwd(“C:/Users/goobo/Desktop/Classes in UGA/Spring 2022/[AAEC 8610] Advanced Econometric Applications/Homework/Hw 2”) [Part A] highway <- read.csv("Highway1.csv", header=TRUE, sep=",") str(highway) ## 'data.frame': 39 obs. of 13 variables: ## $ X : int 1 2 3 4 5 6 7 8 9 10 ... ## $ rate : num 4.58 2.86 3.02 2.29 1.61 6.87 3.85...
821 sym R (2602 sym/7 pcs) 3 img
[AAEC 8610] HW 3 Piketty's Inequality Story in Three Charts
setwd(“C:/Users/goobo/Desktop/Classes in UGA/Spring 2022/[AAEC 8610] Advanced Econometric Applications/Homework/Hw 3”) library(readxl) library(dplyr) library(ggplot2) Reference and disclaimer:I attempted to reproduce the article, “PIKETTY’S INEQUAILITY STORY IN SIX CHARTS” by John Cassidy, a staff writer at The New Yorker on March 26, 2...
5168 sym R (2281 sym/2 pcs) 2 img
Replication a diff-in-diff paper
setwd(“C:/Users/goobo/Desktop/Classes in UGA/Spring 2022/[AAEC 8610] Advanced Econometric Applications/Homework/Hw 5”) Part 1: Reading and questions a. What is the causal link the paper is trying to reveal? This paper analyzes the impact of increases in minimum wage on employment in New Jersey. b. What would be the ideal experiment to test t...
1492 sym R (2124 sym/4 pcs) 1 tbl
[AAEC 8610] HW 6 Reproducing RDD paper
setwd(“C:/Users/goobo/Desktop/Classes in UGA/Spring 2022/[AAEC 8610] Advanced Econometric Applications/Homework/Hw 6”) install.packages(“magrittr”) Reproducing the paper, The Effect of Alcohol Consumption on Mortality: Regression Discontinuity Evidence from the Minimum Drinking Age AEJ:Applied Economics 1(1) 164-82 by Carpenter and Dobki...
622 sym R (8283 sym/12 pcs) 2 img
[AAEC 8610] HW 4 Basics of Identification
setwd(“C:/Users/goobo/Desktop/Classes in UGA/Spring 2022/[AAEC 8610] Advanced Econometric Applications/Homework/Hw 4”) Part 1: Paper using randomized data: Impact of Class Size on Learning 1.1. Briefly answer these questions: a. What is the causal link the paper is trying to reveal? -> He is trying to reveal the impact of the class size on th...
2164 sym R (3831 sym/8 pcs)
Document
Task 1: Use world bank data to analyze something Latin American countries and countries located in southern Europe tend to use less energy than North America on the map. This map does not explain energy use, however, in other countries due to a lack of data. # Load the data world_map <- rnaturalearth::ne_countries(scale = 50, returnclass = "sf")...
266 sym R (481 sym/1 pcs) 1 img
Document
Some quick practice 1. Using the iris dataset # Load the data data("iris") iris ## Sepal.Length Sepal.Width Petal.Length Petal.Width Species ## 1 5.1 3.5 1.4 0.2 setosa ## 2 4.9 3.0 1.4 0.2 setosa ## 3 4.7 3.2 1.3 0.2 ...
81 sym R (28205 sym/30 pcs)
Document
*Part 1: Map presidential elections results with the maps package 1. Download the data elections <- read_excel("1976-2020-president.xlsx", 1) # load the data. 2. Load the data, and clean it up: winner <- elections %>% group_by(state, year) %>% top_n(1, candidatevotes) new <- select(winner, year, state, state_fips, party_detailed) new <- m...
434 sym R (2138 sym/7 pcs) 2 img
Document
Task 1 Load and clean the data # Import training and testing data: train_raw <- read.csv2("C:/Users/goobo/Desktop/Classes in UGA/Spring 2022/[AAEC 8610] Advanced Econometric Applications/Homework/Hw 11/train.csv", sep = ",", stringsAsFactors = TRUE) test_raw <- read.csv2("C:/Users/goobo/Desktop/Classes in UGA/Spring 2022...
84 sym R (1288 sym/5 pcs) 2 img
Document
Task: Analyse the Athens Real Estate Market Run a housing search get_price <- function(html){ html %>% html_nodes('.list-card-price') %>% html_text() %>% str_trim() } get_details <- function(html){ html %>% html_nodes('.list-card-details') %>% html_text() %>% str_trim() } get_address <- function(html){ ...
675 sym R (3814 sym/8 pcs) 1 img