方差不等的参数方差分析

Question

我想知道 R 中是否有办法进行方差不等的方差分析？

想象一下下面的例子：

x <- c(10,11,15,8,16,12,20)
y <- c(10,14,18,25,28,30,35)

d <- c(x,y)
f <- as.factor(c(rep("a",7), rep("b",7)))

# Unequal variance:

t.test(x,y)$p.value
t.test(d~f)$p.value

# Equal variance:

t.test(x,y, var.equal=TRUE)$p.value
t.test(d~f, var.equal=TRUE)$p.value

anova(lm(d~f))[[5]]
summary(aov(lm(d~f)))[[1]][5]
summary(lm(d~f))[[4]][8]

从这个例子可以看出，在 R 中执行 ANOVA 的不同方法，仅在两组的情况下，总是会产生一个与 t.test 获得的 p 值相同的方差相等的 p 值。同样，有没有办法执行方差不等的 ANOVA？

Answer 1

对于这种情况，有oneway.test()

R> oneway.test(d~f)

    One-way analysis of means (not assuming equal variances)

data:  d and f 
F = 6.631, num df = 1.000, denom df = 8.339, p-value = 0.03179