library(metafor)

year3attdata <- read.csv("C:/Users/genni/OneDrive/Documents/Dissertation/Paper 1 - Systematic Review/Meta-Analysis/year3att.csv")

#Year 3 Disengagement of Attention Meta-Analysis
year3att <- rma(yi=z, 
                vi=var,
                method="HE", 
                data=year3attdata)

summary(year3att)
forest(year3att,
       order=order(year3attdata$Author),
       xlab="Correlation Coefficient",
       slab=paste(year3attdata$Author, year3attdata$Year, sep=" "),
       transf=transf.ztor
)


#Year 3 Attention with MODERATOR TASK (Frustration vs Fear)
atty3task <- rma(yi=z,vi=var, method="HE", mods=~factor(task),data=year3attdata)

summary(atty3task)


#Year 3 Parent Focused Meta-Analysis

year3pardata <- read.csv("C:/Users/genni/OneDrive/Documents/Dissertation/Paper 1 - Systematic Review/Meta-Analysis/year3par.csv")

year3par <- rma(yi=z, 
                vi=var,
                method="HE", 
                data=year3pardata)

summary(year3par)
forest(year3par,
       order=order(year3pardata$Author),
       xlab="Correlation Coefficient",
       slab=paste(year3pardata$Author, year3pardata$Year, sep=" "),
       transf=transf.ztor
)


#Year 3 Parent Focused with MODERATOR TASK (Frustration vs Fear)
pary3task <- rma(yi=z,vi=var, method="HE", mods=~factor(task),data=year3pardata)

summary(pary3task)


#####

#Year 3 Self Focused Meta-Analysis

year3selfdata <- read.csv("C:/Users/genni/OneDrive/Documents/Dissertation/Paper 1 - Systematic Review/Meta-Analysis/year3self.csv")

year3self <- rma(yi=z, 
                 vi=var,
                 method="HE", 
                 data=year3selfdata)

summary(year3self)
forest(year3self,
       order=order(year3selfdata$Author),
       xlab="Correlation Coefficient",
       slab=paste(year3selfdata$Author, year3selfdata$Year, sep=" "),
       transf=transf.ztor
)


#Year 3 Self Focused with MODERATOR TASK (Frustration vs Fear)

selfy3task <- rma(yi=z,vi=var, method="HE", mods=~factor(task),data=year3selfdata)

summary(selfy3task)