“…The code below was used to calculate CACE for the three different levels of compliance described above: , data = data) #calculate cluster robust standard errors data$bin_maker<-as.numeric(data$bin_maker) output<-cluster.robust.se(results, data$bin_maker) [2,] return(output)} #run models full_compliance_models <-lapply(datasets, function(x) CACE_fc(x)) half_compliance_models <-lapply(datasets, function(x) CACE_hc(x)) bot_follower_models <-lapply(datasets, function(x) CACE_bf(x)) #extract results for republicans republican_full_compliance_cace<-as.data.frame(t(full_compliance_models[ [2]])) republican_full_compliance_cace$sample<-"republicans_full_compliance" republican_full_compliance_cace$party<-"republicans" names(republican_full_compliance_cace)< -c("estimate","se","t","p","sample","party") republican_half_compliance_cace<-as.data.frame(t(half_compliance_models[ [2]])) republican_half_compliance_cace$sample<-"republicans_half_compliance" republican_half_compliance_cace$party<-"republicans" names(republican_half_compliance_cace)<-c("estimate","se","t","p","sample","party") republican_bot_follower_cace<-as.data.frame(t(bot_follower_models[ [2]])) republican_bot_follower_cace$sample<-"republicans_bot_follower" republican_bot_follower_cace$party<-"republicans" names(republican_bot_follower_cace)<-c("estimate","se","t","p","sample","party") #extract results for democrats democrat_full_compliance_cace<-data.frame(t(full_compliance_models[ [1]])) democrat_full_compliance_cace$sample<-"democrats_full_compliance" democrat_full_compliance_cace$party<-"democrats" names(democrat_full_compliance_cace)<-c("estimate","se","t","p","sample","party") democrat_half_compliance_cace<-as.data.frame(t(half_compliance_models[ [1]])) democrat_half_compliance_cace$sample<-"democrats_half_compliance" democrat_half_compliance_cace$party<-"democrats" names(democrat_half_compliance_cace)<-c("estimate","se","t","p","sample","party") democrat_bot_follower_cace<-as.data.frame(t(bot_follower_models[ [1]])) democrat_bot_follower_cace$sample<-"democrats_bot_follower" democrat_bot_follower_cace$party<-"democrats" names(democrat_bot_follower_cace)<-c("estimate","se","t","p","sample","party")…”