# NOT RUN {
# A meta-analysis consists of 26 studies on nicotine replacement therapy for smoking cessation
library(HSAUR3)
data(smoking)
# Y1: receive treatment; Y2: stop smoking
n_00 <- smoking$tc - smoking$qc # not receive treatement yet not stop smoking
n_01 <- smoking$qc # not receive treatement but stop smoking
n_10 <- smoking$tt - smoking$qt # receive treatement but not stop smoking
n_11 <- smoking$qt # receive treatement and stop smoking
lnOR <- log(n_11*n_00/n_01/n_10)
# }
# NOT RUN {
mc.run <- mc.lnOR(n_00, n_01, n_10, n_11, model = 'random', p_cut = 0.05)
# }
# NOT RUN {
## Note: this mc.lnOR() function will soon be deprecated
## and replaced by \link[boot.heterogeneity]{boot.lnOR} in
## package [boot.heterogeneity](https://CRAN.R-project.org/package=boot.heterogeneity).
# }
Run the code above in your browser using DataLab