Publications by Yoon

HW10

16.04.2020

Reference and disclaimer: This homework is attempting to excersice “Regression Discontinuity Design”, based on Carpenter and Dobkin(2009)’s paper (The Effect of Alcohol Consumption on Mortality: Regression Discontinuity). b. Get the data content The data can be downloaded straight here, from A&P Mastering Metrics resources webpage. Code ...

3565 sym R (4982 sym/14 pcs) 5 img

HW8

31.03.2020

Reference and disclaimer: This homework is attempting to webscrap the housing data from the website “Zillow” (http://www.zillow.com/). 1. Scrapped Data content First of all, from that site, we targeted all houses on sale within the boundary of Athens, Georgia, US which has more than 1 bedroom. Second, from those houses, we scrapped the data...

3700 sym R (11674 sym/10 pcs) 1 img

HW6

18.02.2020

Reference and disclaimer: This homework is attempting to generate figures, using World Bank data and google trend. Task 1: The trend for Total GHG emissions of Top 10 countries Background As you know, the main culprit of climate change is greenhouse gas (GHG) emissions from human activities. Just 10 years ago, many people haave thought that dev...

2546 sym R (3391 sym/2 pcs) 2 img

HW5

06.02.2020

Reference and disclaimer: This homework is attempting to reproduce figures,using leaflet and map packages. Attempt to reproduce figures using R code and R markdown syntax exclusively: The first chart is the figure on Presidential election results by State in 2000.The Dataverse on this figure is maintained by the MIT Election Data and Science Lab ...

716 sym R (2159 sym/4 pcs) 2 img

HW4

01.02.2020

Reference and disclaimer: This homework is attempting to reproduce parts of the New Yorker article by John Cassidy, dated March 26, 2014, and titled “Piketty’s Inequality Story in Six Charts”. All text was lifted directly from that article. Figures are compiled using data that was found at this address. This is purely an exercise in reprodu...

5145 sym R (5247 sym/3 pcs) 3 img

Allowance prices in South Korea

23.01.2020

Data generation data <- read.table("C:/Users/Ag User/Desktop/AAEC/5. 2020 Spring/AAEC 8610/Homework/HW3/data.csv", header = TRUE, sep = ",") e2015 <- mean(subset(data, year == 2015)$price.elec) e2016 <- mean(subset(data, year == 2016)$price.elec) e2017 <- mean(subset(data, year == 2017)$price.elec) e2018 <- mean(subset(data, year == 2018)$pri...

1411 sym R (1877 sym/9 pcs) 2 img