15 lines
458 B
R
15 lines
458 B
R
library(tidyverse)
|
|
library(fixest)
|
|
DF <- readRDS("Data/Output_Data/Full_Data_Set.rds") %>% mutate(year=as.numeric(year)) %>% group_by(wdid) %>% mutate(SBD1=max(SBD1)) %>% ungroup
|
|
DF %>% filter(SBD1_year<2011) %>% pull(SBD1_year) %>% unique
|
|
DF[DF$SBD1_year==2009,"SBD1_year"] <- 2011
|
|
DF[DF$SBD1==1,"POST"] <-
|
|
DF$POST <- 0
|
|
DF[DF$SBD1==1& DF$SBD1_year>=DF$year,"POST"] <- 1
|
|
|
|
|
|
#DF$POST <- ifelse(DF$year>=2011,1,0)
|
|
feols(log(AF+0.01)~SBD1+POST|wdid,data=DF)
|
|
|
|
|