Arka fon
Daha önce yayınlanmış verileri içeren bir meta-analiz yürütüyorum. Genellikle, tedaviler arasındaki farklar P-değerleri, en az anlamlı farklılıklar (LSD) ve diğer istatistikler ile rapor edilir, ancak varyansın doğrudan bir tahmini yoktur.
Kullandığım model bağlamında, varyansın fazla tahmin edilmesi doğru.
Sorun
İşte için dönüşümler listesidir S E = √ (2003 Saville)ı düşünüyorum bu, geri takdir; Aşağıda,α=0.05yani1- α / 2=0.975 olduğunu ve değişkenlerin normalde aksi belirtilmedikçe dağıtıldığınıvarsayıyorum:
Sorular:
Bu denklemleri kapsüllemek için bir R işlevi:
Örnek Veriler:
data <- data.frame(Y=rep(1,5), stat=rep(1,5), n=rep(4,5), statname=c('SD', 'MSE', 'LSD', 'HSD', 'MSD')
Örnek Kullanım:
transformstats(data)
transformstats
fonksiyon:transformstats <- function(data) { ## Transformation of stats to SE ## transform SD to SE if ("SD" %in% data$statname) { sdi <- which(data$statname == "SD") data$stat[sdi] <- data$stat[sdi] / sqrt(data$n[sdi]) data$statname[sdi] <- "SE" } ## transform MSE to SE if ("MSE" %in% data$statname) { msei <- which(data$statname == "MSE") data$stat[msei] <- sqrt (data$stat[msei]/data$n[msei]) data$statname[msei] <- "SE" } ## 95%CI measured from mean to upper or lower CI ## SE = CI/t if ("95%CI" %in% data$statname) { cii <- which(data$statname == '95%CI') data$stat[cii] <- data$stat[cii]/qt(0.975,data$n[cii]) data$statname[cii] <- "SE" } ## Fisher's Least Significant Difference (LSD) ## conservatively assume no within block replication if ("LSD" %in% data$statname) { lsdi <- which(data$statname == "LSD") data$stat[lsdi] <- data$stat[lsdi] / (qt(0.975,data$n[lsdi]) * sqrt( (2 * data$n[lsdi]))) data$statname[lsdi] <- "SE" } ## Tukey's Honestly Significant Difference (HSD), ## conservatively assuming 3 groups being tested so df =2 if ("HSD" %in% data$statname) { hsdi <- which(data$statname == "HSD" & data$n > 1) data$stat[hsdi] <- data$stat[hsdi] / (qtukey(0.975, data$n[lsdi], df = 2)) data$statname[hsdi] <- "SE" } ## MSD Minimum Squared Difference ## MSD = t_{\alpha/2, 2n-2}*SD*sqrt(2/n) ## SE = MSD*n/(t*sqrt(2)) if ("MSD" %in% data$statname) { msdi <- which(data$statname == "MSD") data$stat[msdi] <- data$stat[msdi] * data$n[msdi] / (qt(0.975,2*data$n[lsdi]-2)*sqrt(2)) data$statname[msdi] <- "SE" } if (FALSE %in% c('SE','none') %in% data$statname) { print(paste(trait, ': ERROR!!! data contains untransformed statistics')) } return(data) }
Referanslar
Saville 2003 Can J. Exptl Psych. (Pdf)
Rosenberg ve ark. 2004 (bağlantı)
Wang ve diğ. 2000 Çevre Tox. ve Chem 19 (1): 113-117 (bağlantı)