library(metafor)

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

#Year 1 Disengagement of Attention Meta-Analysis
year1att <- rma(yi=z, 
                vi=var,
                method="HE", 
                data=year1attdata)
summary(year1att)

forest(year1att,
       order=order(year1attdata$Author),
       xlab="Correlation Coefficient",
       slab=(year1attdata$Author),
       transf=transf.ztor
)

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

summary(atty1task)


#####

#Year 1 Parent Focused Meta-Analysis

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

year1par <- rma(yi=z, 
                vi=var,
                method="HE", 
                data=year1pardata)

summary(year1par)

forest(year1par,
       order=order(year1pardata$Author),
       xlab="Correlation Coefficient",
       slab=(year1pardata$Author),
       transf=transf.ztor
)

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

summary(pary1task)

#####

#Year 1 Self Focused Meta-Analysis

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

year1self <- rma(yi=z, 
                vi=var,
                method="HE", 
                data=year1selfdata)

summary(year1self)
forest(year1self,
       order=order(year1selfdata$Author),
       xlab="Correlation Coefficient",
       slab=(year1selfdata$Author),
       transf=transf.ztor
)

#Year 1 Self-Focused with MODERATOR TASK (Frustration vs Fear)
selfy1task <- rma(yi=z,vi=var, method="HE", mods=~factor(task),data=year1selfdata)

summary(selfy1task)