统计建模与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",]是怎么赋值的呢？
谢谢！