Publications by DR VY
Document
rm(list=ls()) library(RPostgres) library(data.table) library(getPass) library(lfe) library(stargazer) library(ggplot2) library(fst) library(stringr) library(stringi) library(lubridate) # files = list.files(pattern="*.fst",path = "C:/Users/dratnadiwakara2/Documents/OneDrive - Louisiana State University/Raw Data/HMDA/Ultimate Panel Data/"...
711 sym R (51492 sym/37 pcs) 5 img
Document
rm(list=ls()) library(RPostgres) library(data.table) library(getPass) library(lfe) library(stargazer) library(ggplot2) library(fst) library(stringr) library(stringi) library(lubridate) # files = list.files(pattern="*.fst",path = "C:/Users/dratnadiwakara2/Documents/OneDrive - Louisiana State University/Raw Data/HMDA/Ultimate Panel Data/"...
856 sym R (68515 sym/51 pcs) 5 img
Document
files = paste0("C:/Users/dratnadiwakara2/Documents/OneDrive - Louisiana State University/Raw Data/HMDA/Ultimate Panel Data/",c("2014.fst","2015.fst","2016.fst","2017.fst","2018.fst","2019.fst")) panel = lapply(files, read_fst, as.data.table = TRUE,columns=c("asofdate","respondentid","rssd","agencycode","reportername","topholderrssdid","parentrs...
1081 sym R (81540 sym/54 pcs) 11 img
Document
files = paste0("C:/Users/dratnadiwakara2/Documents/OneDrive - Louisiana State University/Raw Data/HMDA/Ultimate Panel Data/",c("2014.fst","2015.fst","2016.fst","2017.fst","2018.fst","2019.fst")) panel = lapply(files, read_fst, as.data.table = TRUE,columns=c("asofdate","respondentid","rssd","agencycode","reportername","topholderrssdid","parentrs...
2858 sym R (91224 sym/59 pcs) 11 img
Document
cbsa_bnk <- read_fst("C:/Users/dratnadiwakara2/Documents/OneDrive - Louisiana State University/Projects/Bank Mergers/data/cbsa_bnk.fst",as.data.table = T) cbsa_bnk[,msinc13Q:=ifelse(msinc13<=0.0001,"Q0", ifelse(msinc13<0.0027235,"Q1", ifelse(msinc13<0.0112596,"Q2", ...
149 sym R (13371 sym/8 pcs)
Document
rm(list=ls()) library(stargazer) library(data.table) library(ggplot2) library(lfe) library(rgdal) library(rgeos) library(gridExtra) library(fst) coastal_states <- c("TX","LA","MS","AL","FL","GA","SC","NC","VA","MD","DE","NJ","NY","CT","MA","RI","NH","ME","PA") coastal_states_fips <- c("48","22","28","01","12","13","45","37","51","24","...
284 sym R (5241 sym/9 pcs) 4 img
Document
1 Baseline Projections Assumptions Sales price = 100 Efficiency = 0.8 Cost=30 Kitcost=10 Discount Rate=0.2/12 Income tax rate = 0.3 The business will be sold for 2 million at the end of 2022 Jan 2021 - 200k Apr - 300k Oct - 500k sp = 100 priceeff = 0.8 cost=30 kitcost=10 billinglist = 0.0575 disc=0.20/12 df <- data.table(month=1:26, ...
564 sym R (5357 sym/12 pcs) 6 img
Document
1 Baseline Projections Assumptions Sales price = 100 Efficiency = 0.8 Cost=30 Kitcost=10 Discount Rate=0.2/12 Income tax rate = 0.3 The business will be sold for 2 million at the end of 2022 Jan 2021 - 200k Apr - 300k Oct - 500k sp = 100 priceeff = 0.8 cost=30 kitcost=10 billinglist = 0.0575 disc=0.20/12 df <- data.table(month=1:26, ...
564 sym R (5363 sym/12 pcs) 6 img
Document
rm(list=ls()) library(data.table) library(ggplot2) library(rgdal) library(rgeos) library(scales) library(tidyverse) library(dplyr) library(fst) library(lfe) library(stargazer) library(gganimate) library(jsonlite) library(lubridate) sci <- fread("C:/Users/dratnadiwakara2/Documents/OneDrive - Louisiana State University/Raw Data/faceboo...
1168 sym R (5085 sym/11 pcs) 4 img
Document
rm(list=ls()) library(stargazer) library(plyr) library(lfe) library(zoo) library(scales) library(rdrobust) library(data.table) library(ggplot2) library(dplyr) note =c("Fixed Effects: census tract, listing month, ownership cohort","Standard Errors clustered by census tract") output.type="text" printtable <- function(reg,column.labels,...
6733 sym R (87294 sym/49 pcs) 8 img