> seedrates.lm1<-lm(grain~rate,data=seedrates)
> seedrates.lm2<-lm(grain~rate+I(rate^2),data=seedrates)
> anova(seedrates.lm2,seedrates.lm1)
Analysis of Variance Table
Model 1: grain ~ rate + I(rate^2)
Model 2: grain ~ rate
Res.Df Res.Sum Sq Df Sum Sq F value Pr(>F)
1 2 0.026286
2 3 0.187000 -1 -0.160714 12.228 0.07294
什么意思没明白,是将两次拟合结果做对比,看有无显著性差异吗?还是什么别的?
> seedrates.lm2<-lm(grain~rate+I(rate^2),data=seedrates)
> anova(seedrates.lm2,seedrates.lm1)
Analysis of Variance Table
Model 1: grain ~ rate + I(rate^2)
Model 2: grain ~ rate
Res.Df Res.Sum Sq Df Sum Sq F value Pr(>F)
1 2 0.026286
2 3 0.187000 -1 -0.160714 12.228 0.07294
什么意思没明白,是将两次拟合结果做对比,看有无显著性差异吗?还是什么别的?