## Not run:
# library(intubate)
# library(magrittr)
# library(metafor)
#
#
# ## ntbt_escalc: Calculate Effect Sizes and Outcome Measures
# data(dat.bcg)
# dat.long <- to.long(measure = "RR", ai = tpos, bi = tneg, ci = cpos, di = cneg,
# data = dat.bcg, append = FALSE, vlong = TRUE)
#
# ## Original function to interface
# dat <- escalc(measure="RR", outcome ~ group | study, weights = freq, data = dat.long)
# rma(yi, vi, data = dat)
#
# ## The interface puts data as first parameter
# dat <- ntbt_escalc(dat.long, measure="RR", outcome ~ group | study, weights = freq)
# ntbt_rma(dat, yi, vi)
#
# ## so it can be used easily in a pipeline.
# dat.long %>%
# ntbt_escalc(measure="RR", outcome ~ group | study, weights = freq) %>%
# ntbt_rma(yi, vi)
# ## End(Not run)
Run the code above in your browser using DataLab