# \donttest{
# Example with an object obtained using the 'R2OpenBUGS' package ("es",
# whose simulations on the effect sizes of primary studies are those
# of the "delta" parameter). If the object had been obtained using a
# different package, all remaining arguments would be the same and only
# the "package" argument would have a different input.
# In this example, argument \code{transf = TRUE} (default), as sampled
# effect sizes are log odds ratios.
load(url("https://raw.github.com/BernardoSousaPinto/metainc_extra_files/main/es.Rdata"))
sample <- getsamples(es, param = "delta", package = "R2OpenBUGS", sm = "OR")
sample
# }
# Example using a dataset providing effect sizes for primary studies (yi)
# and respective variances (vi). A frequentist meta-analysis using the 'meta'
# package is conducted.
data("anticoagulation_df")
m1 <- meta::metagen(yi, sqrt(vi), sm = "OR", data = anticoagulation_df,
studlab = LETTERS[1:18])
set.seed(1090) # Make sampled effect sizes reproducible
sample1 <- getsamples(m1)
sample1
if(requireNamespace("metafor")){
# Same samples of effect sizes using R package 'metafor' (must be installed)
m2 <- metafor::rma(anticoagulation_df, measure = "OR", slab = LETTERS[1:18])
set.seed(1090) # Make sampled effect sizes reproducible
sample2 <- getsamples(m2)
sample2
all.equal(sample1, sample2) # Only difference: package name
}
Run the code above in your browser using DataLab