方差分析-analysis-of-variance

你想达到一个目的有不同的手段和方法。
方差分析用方差来判别不同的手段和方法的效果之间是否存在差异。

library(data.table)

X <- c(25.6, 22.2, 28.0, 29.8,
       24.4, 30.0, 29.0, 27.5,
       25.0, 27.7, 23.0, 32.2,
       28.2, 28.0, 31.5, 25.9,
       20.6, 21.2, 22.0, 21.2)
A <- factor(rep(1:5,each=4))
de.noise <- data.table(X,A)
de.noise[,.(X.mean=mean(X),X.sd=sd(X)),by=A]
de.noise.aov <- aov(X~A, data = de.noise)
summary(de.noise.aov)