#Experiment 1 Models

correction_attempts_full<-glmer(correction_attempts ~ sqrt_lesionvolume+conflict+(1|id)+(1|item),family=binomial,data=Exp1)

correction_attempts_sqrt_lesionvolume <- glmer(correction_attempts ~ conflict+(1|id)+(1|item),family=binomial,data=Exp1)

correction_attempts_conflict <- glmer(correction_attempts ~ sqrt_lesionvolume+(1|id)+(1|item),family=binomial,data=Exp1)

#Experiment 1 Likelihood Ratio Tests

anova(correction_attempts_full,correction_attempts_sqrt_lesionvolume)

anova(correction_attempts_full,correction_attempts_conflict)

#Experiment 2 Models

correction_attempts_full<-glmer(correction_attempts ~ actioncomprehension+actionproduction+conflict+feedback+(1|id),family=binomial,data=Exp2)

correction_attempts_actionproduction<-glmer(correction_attempts ~ actioncomprehension+conflict+feedback+(1|id),family=binomial,data=Exp2)

correction_attempts_actioncomprehension<-glmer(correction_attempts ~ actionproduction+conflict+feedback+(1|id),family=binomial,data=Exp2)

correction_attempts_conflict<-glmer(correction_attempts ~ actioncomprehension+actionproduction+feedback+(1|id),family=binomial,data=Exp2)

correction_attempts_feedback<-glmer(correction_attempts ~ actioncomprehension+actionproduction+conflict+(1|id),family=binomial,data=Exp2)

successful_correction_full<-glmer(successful_correction ~ actioncomprehension+actionproduction+conflict+feedback+(1|id),family=binomial,data=Exp2)

successful_correction_actionproduction<-glmer(successful_correction ~ actioncomprehension+conflict+feedback+(1|id),family=binomial,data=Exp2)

successful_correction_actioncomprehension<-glmer(successful_correction ~ actionproduction+conflict+feedback+(1|id),family=binomial,data=Exp2)

successful_correction_conflict<-glmer(successful_correction ~ actioncomprehension+actionproduction+feedback+(1|id),family=binomial,data=Exp2)

successful_correction_feedback<-glmer(successful_correction ~ actioncomprehension+actionproduction+conflict+(1|id),family=binomial,data=Exp2)

successful_correction_fullinteract<-glmer(successful_correction ~ actioncomprehension*feedback+actionproduction+conflict*feedback+(1|id),family=binomial,data=Exp2)

successful_correction_interact<-glmer(successful_correction ~ actioncomprehension+feedback+actionproduction+conflict*feedback+(1|id),family=binomial,data=Exp2)

#Experiment 2 Likelihood Ratio Tests

anova(correction_attempts_full,correction_attempts_actionproduction)

anova(correction_attempts_full,correction_attempts_actioncomprehension)

anova(correction_attempts_full,correction_attempts_conflict)

anova(correction_attempts_full,correction_attempts_feedback)

anova(successful_correction_full,successful_correction_actionproduction)

anova(successful_correction_full,successful_correction_actioncomprehension)

anova(successful_correction_full,successful_correction_conflict)

anova(successful_correction_full,successful_correction_feedback)

anova(successful_correction_fullinteract,successful_correction_interact)

#Post-Hoc Analysis of Experiment 1 Data

correctionattempts_full_interact <- glmer(ca ~ sqrt_lesionvolume+group*conflict+(1|id)+(1|item),family=binomial,data=Exp1)

correctionattempts_interact <- glmer(ca ~ sqrt_lesionvolume+group+conflict+(1|id)+(1|item),family=binomial,data=Exp1)

anova(correctionattempts_full_interact,correctionattempts_interact)