具有不等方差的参数方差分析

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的不同方式，仅在两个组的情况下，总是导致p值与由t.test获得的具有相等方差的p值相同。同样，有没有办法执行方差不等的方差分析？

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