同学弄了一批数据，让我帮忙看看，是关于植物竞争的
现在不用区域（block），在不同大小的花盆里（volumn），设置为竞争和非竞争条件（Competition），收集种子重量（seed）
看seed的重量是否与competition有关

我先试了一下数据，先不考虑随机因子block。
在spss中，用的是一般线性模型，competition为fixed factor，volumn为covariate。
在R中，代码如下：
Seed$Competition<-factor(Seed$Competition)
class(Seed$Competition)
lm<-lm(seed~Competition*Volume,data=Seed)
anova(lm)


两者计算结果如图中：
可以看见残差平方和，及交互作用平方和是一致的，但是主效应的平方和差距很大
求问高手知道问题出在哪里不？多谢！