if (FALSE) {
# simulate some z-statistics and fit a z-curve
z <- abs(rnorm(300,3))
m.EM <- zcurve(z, method = "EM", bootstrap = 100)
# plot the z-curve
plot(m.EM)
# add annotation text and model fit CI
plot(m.EM, annotation = TRUE, CI = TRUE)
# change the location of the annotation to the left
plot(m.EM, annotation = TRUE, CI = TRUE, x_text = 0)
}
Run the code above in your browser using DataLab