统计建模与R软件一书中单因素方差分析有如下命令:
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)
source("anova.tab.R"); anova.tab(lamp.aov)
plot(lamp$X~lamp$A)
其中
anova.tab<-function(fm){
tab<-summary(fm)
k<-length(tab[[1]])-2
temp<-c(sum(tab[[1]][,1]), sum(tab[[1]][,2]), rep(NA,k))
tab[[1]]["Total",]<-temp
tab
}
想请问一下tab是什么属性?tab[[1]]指的是什么意思呢?tab[[1]]["Total",]是怎么赋值的呢?
谢谢!


雷达卡




京公网安备 11010802022788号







