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)