Проверьте, значительно ли отличаются перехваты в модели ancova в R - PullRequest
0 голосов
/ 08 марта 2020

Я запустил модель, объясняющую вес какого-либо растения как функцию времени и пытающуюся включить эффект обработки.

mod <- lm(weight ~time + treatment)

Модель выглядит следующим образом:

enter image description here

со сводной моделью:

Call:
lm(formula = weight ~ time + treatment, data = df)

Residuals:
    Min      1Q  Median      3Q     Max 
-21.952  -7.674   0.770   6.851  21.514 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept) -37.5790     3.2897 -11.423  < 2e-16 ***
time          4.7478     0.2541  18.688  < 2e-16 ***
treatmentB    8.2000     2.4545   3.341  0.00113 ** 
treatmentC    5.4633     2.4545   2.226  0.02797 *  
treatmentD   20.3533     2.4545   8.292 2.36e-13 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 9.506 on 115 degrees of freedom
Multiple R-squared:  0.7862,    Adjusted R-squared:  0.7788 
F-statistic: 105.7 on 4 and 115 DF,  p-value: < 2.2e-16

таблица ANOVA

Analysis of Variance Table

Response: weight
           Df  Sum Sq Mean Sq F value    Pr(>F)    
time        1 31558.1 31558.1 349.227 < 2.2e-16 ***
treatment   3  6661.9  2220.6  24.574 2.328e-12 ***
Residuals 115 10392.0    90.4                      

Я хочу проверить H0, что intercept1 = intercept2 = intercept3 = intercept4. Делается ли это путем простой интерпретации t-значения и p-значения для перехвата (думаю, не потому, что это базовая линия (в данном случае это лечение A))? Я немного озадачен этим, так как в большинстве источников, на которые я смотрел, мало внимания уделяется разнице в перехвате.

...