例子:利用四種不同配方的材料A1、A2、A3、A4生産出來的元件,測得其使用壽命如下圖所示。問:四種不同配方下元件的使用壽命有無顯著差異?
R語言中的aov()函數提供了方差分析的計算,aov()函數的使用方式如下:
aov(formula,data=NULL)
其中formula是方差分析的公式,data是數據框。另外,可使用summary()列出方差分析表的詳細信息。
接下來用數據框的格式輸入數據,調用aov()函數計算方差分析,用summary()提取方差分析的信息。
> lamp<-data.frame(
X=c(1600, 1610, 1650, 1680, 1700, 1700, 1780, 1500, 1640, 1400, 1700, 1750, 1640, 1550, 1600, 1620, 1640, 1600, 1740, 1800, 1510, 1520, 1530, 1570, 1640, 1600),
A=factor(c(rep(1,7),rep(2,5),rep(3,8),rep(4,6)))
)
> lamp.aov<-aov(X~A,data = lamp)
> summary(lamp.aov)
Df Sum Sq Mean Sq F value Pr(>F)
A 3 49212 16404 2.166 0.121
繪制箱線圖
>plot(lamp$X~lamp$A)
無論是從p值還是從箱線圖都可以說明:四種材料生産出的元件的平均壽命無顯著差異。
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!