作者QQVila (雷曼×)
看板Statistics
标题Re: [程式] 用统计软体R作ANOVA的分析
时间Sat Dec 12 17:22:35 2009
首先谢谢大家的建议:) 其实我也去google找了很久…
废话不说请先看看哪里有错误吧！ (详情data请看上一篇！)
> data <-read.table("r.txt",header=T)
> data
part r test tester
1 37 1 1 1
2 42 2 1 1
3 30 3 1 1
4 42 4 1 1
5 28 5 1 1
6 42 6 1 1
7 25 7 1 1
8 40 8 1 1
9 25 9 1 1
10 35 10 1 1
……
81 41 1 3 3
82 43 2 3 3
83 28 3 3 3
84 42 4 3 3
85 29 5 3 3
86 45 6 3 3
87 27 7 3 3
88 41 8 3 3
89 26 9 3 3
90 35 10 3 3
> r.inter <- aov(part~test*tester,data=data)
> summary(r.inter)
Df Sum Sq Mean Sq F value Pr(>F)
test 1 0.01667 0.01667 0.0004 0.9850
tester 1 19.3 19.3 0.4109 0.5232
test:tester 1 3.0 3.0 0.0645 0.8001
Residuals 86 4032.1 46.9
> anova(lm(part~test*tester,data=data))
Analysis of Variance Table
Response: part
Df Sum Sq Mean Sq F value Pr(>F)
test 1 0.01667 0.01667 0.0004 0.9850
tester 1 19.3 19.3 0.4109 0.5232
test:tester 1 3.0 3.0 0.0645 0.8001
Residuals 86 4032.1 46.9
其实大家看就知道怪怪的…虽然两张表写出来的是一样没错
但是Df的地方一看就知道是错的，想当然尔後面的也是错的！！
请问是哪里出问题呢？
因为这题其实是课本上的，当然有一张他的ANOVA的表格。
感谢～
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.216.119.62
※ 编辑: QQVila 来自: 61.216.119.62 (12/12 17:23)