Saya kedua @ jawaban MrMeritology. Sebenarnya saya bertanya-tanya apakah tes MWU akan kurang kuat daripada tes proporsi independen, karena buku teks yang saya pelajari dan digunakan untuk mengajar mengatakan bahwa MWU dapat diterapkan hanya untuk data ordinal (atau interval / rasio).
Tetapi hasil simulasi saya, diplot di bawah ini, menunjukkan bahwa tes MWU sebenarnya sedikit lebih kuat daripada tes proporsi, sementara mengendalikan tipe I kesalahan dengan baik (pada proporsi populasi kelompok 1 = 0,50).
Proporsi populasi kelompok 2 dijaga pada 0,50. Jumlah iterasi adalah 10.000 di setiap titik. Saya mengulangi simulasi tanpa koreksi Yate tetapi hasilnya sama.
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"))