MrMeritology'nin cevabını ikinci olarak verdim. Aslında öğrendiğim ve öğretmek için kullandığım ders kitapları MWU'nun sadece sıra (veya aralık / oran) verilere uygulanabileceğini söylediğinden, MWU testinin bağımsız oranların testinden daha az güçlü olup olmayacağını merak ediyordum.
Ancak, aşağıda çizilen simülasyon sonuçlarım, tip I hatasını iyi kontrol ederken (grup 1 = 0.50 popülasyon oranında) MWU testinin aslında oran testinden biraz daha güçlü olduğunu göstermektedir.
Grup 2'nin nüfus oranı 0.50'da tutulmuştur. Yineleme sayısı her noktada 10.000'dir. Simülasyonu Yate'in düzeltmesi olmadan tekrarladım, ancak sonuçlar aynıydı.
library(reshape)
MakeBinaryData <- function(n1, n2, p1){
y <- c(rbinom(n1, 1, p1),
rbinom(n2, 1, 0.5))
g_f <- factor(c(rep("g1", n1), rep("g2", n2)))
d <- data.frame(y, g_f)
return(d)
}
GetPower <- function(n_iter, n1, n2, p1, alpha=0.05, type="proportion", ...){
if(type=="proportion") {
p_v <- replicate(n_iter, prop.test(table(MakeBinaryData(n1, n1, p1)), ...)$p.value)
}
if(type=="MWU") {
p_v <- replicate(n_iter, wilcox.test(y~g_f, data=MakeBinaryData(n1, n1, p1))$p.value)
}
empirical_power <- sum(p_v<alpha)/n_iter
return(empirical_power)
}
p1_v <- seq(0.5, 0.6, 0.01)
set.seed(1)
power_proptest <- sapply(p1_v, function(x) GetPower(10000, 1000, 1000, x))
power_mwu <- sapply(p1_v, function(x) GetPower(10000, 1000, 1000, x, type="MWU"))