对于 n < 10 的小样本量,此 R 脚本产生的 p 值不足 < 0.1。谁能解释为什么会这样?如果这是一个 R 错误,它可能会产生一些影响。注意:对于小样本量,单样本 z 检验确实具有统一的 p 值。
m <- 10000
n <- 3
p.value <- rep(m, 0)
for (i in 1:m) {
x <- rnorm(n, mean= 0, sd= 1)
y <- rnorm(n, mean= 0, sd= 1)
p.value[i] <- t.test(x, y, alt= "two.sided")$p.value
} # for
par(mfrow= c(1,1))
hist(p.value, breaks= 20, xaxs="i", yaxs="i", col="skyblue", prob= F, las=T) # appears uniform
abline(h= m/20, col= "red", lty=2)
abline(v= 0.05, col= "cornflowerblue")