## data with p < 0.025 for H0: delta < 0, but p > 0.025 for H0: delta < 0.3
d <- 0.4
d_se <- 0.1
delta <- c(0, 0.3)
ribbonROE(ee = d, se = d_se, delta = delta, meanLim = c(-1, 1))
## reproducing Figure 1 from Hoefler & Miller (2023)
ee <- 3.07
se <- 1.19
ribbonROE(ee = ee, se = se, delta = c(0,3), alpha = 0.025,
cols = c("#F5FF82", "#27CC1E"))$plot +
ggplot2::annotate(geom = "point", y = ee, x = se, shape = 4) +
ggplot2::coord_flip(ylim = c(-5, 15))
Run the code above in your browser using DataLab