##### Generate the data for a meta analysis with 8 studies #####
set.seed(100)
K=8
tau=2
v=rchisq(K, 3)
y=rnorm(K)*sqrt(v+tau)+1
##### Exact inference using the DL method #####
fit=random.meta(y, v, type="DL")
fit
##### Exact inference using the Wilcoxon method #####
fit=random.meta(y, v, type="wilcox")
fit
Run the code above in your browser using DataLab