The metafor Package

A Meta-Analysis Package for R

User Tools

Site Tools


analyses:morris2008

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
analyses:morris2008 [2022/08/03 11:19] Wolfgang Viechtbaueranalyses:morris2008 [2022/08/03 17:05] (current) Wolfgang Viechtbauer
Line 130: Line 130:
 <code rsplus> <code rsplus>
 sd_pool <- sqrt((with(datT, (ni-1)*sd_pre^2) + with(datC, (ni-1)*sd_pre^2)) / (datT$ni + datC$ni - 2)) sd_pool <- sqrt((with(datT, (ni-1)*sd_pre^2) + with(datC, (ni-1)*sd_pre^2)) / (datT$ni + datC$ni - 2))
-dat <- data.frame(yi = metafor:::.cmicalc(datT$ni + datC$ni - 2) * (with(datT, m_post - m_pre) - with(datC, m_post - m_pre)) / sd_pool)+dat <- data.frame(yi = metafor:::.cmicalc(datT$ni + datC$ni - 2) *  
 +                       (with(datT, m_post - m_pre) - with(datC, m_post - m_pre)) / sd_pool)
 dat$vi <- 2*(1-datT$ri) * (1/datT$ni + 1/datC$ni) + dat$yi^2 / (2*(datT$ni + datC$ni)) dat$vi <- 2*(1-datT$ri) * (1/datT$ni + 1/datC$ni) + dat$yi^2 / (2*(datT$ni + datC$ni))
 round(dat, 2) round(dat, 2)
analyses/morris2008.txt · Last modified: 2022/08/03 17:05 by Wolfgang Viechtbauer