Selection Models
Slides
Keywords: P-Curve, Uniform Distribution, P-Hacking
Code
# Install dmetar:
if (!require("remotes")) {
install.packages("remotes")
}; remotes::install_github("MathiasHarrer/dmetar")
# Install metasens
install.packages("metasens")
# Load all required packages
library(dmetar)
library(meta)
library(metasens)
# Load 'ThirdWave' data set
data("ThirdWave")
# Run REM meta-analysis
rem <- metagen(TE, seTE, Author, ThirdWave)
# Create a funnel plot
funnel(rem)
# Run Egger's test
eggers.test(rem)
# Run limit meta-analysis
limitmeta(rem)
funnel(limitmeta(rem))
# Run P-curve
pcurve(rem)