## Meta-Analysis Exercise
## Edwards & Holtzman (2017)
## Correlation between Depression and use of 
## First Person Pronouns

#Open the Dataset
d<-read.csv(file.choose())
names(d)

library(metafor)


#Q1-Q3: Combined Effect Size, CI, Heterogeneity
library(metafor)
mod1<-rma(ri=Correlation,ni=N,
          method="REML",measure="COR",
          slab=Study,data=d)
mod1

funnel(mod1)

#Q4: Forest Plot
forest(mod1)

#Q5: Funnel Plot
funnel(mod1)

#Q6: Outliers/Influence Analysis
plot(leave1out(mod1)$estimate)

#Q7: Moderator Analysis
mod1<-rma(ri=Correlation,ni=N,
          method="FE",measure="COR",
          slab=Study,mods=~Published,data=d)
mod1