# Example from Furuya-Kanamori et al. (2018)
#
pain <- data.frame(SMD = c(-4.270, -1.710, -0.580, -0.190, 0.000),
varSMD = c(0.158, 0.076, 0.018, 0.022, 0.040))
lfk.pain <- lfkindex(SMD, sqrt(varSMD), data = pain)
lfk.pain
doiplot(lfk.pain)
Run the code above in your browser using DataLab