r - R の anova (glm) から残差偏差を抽出する

Question

R で glm モデルをフィッティングし、anova テーブルを使用しました。「Residual Deviance」列を抽出する必要があります。しかし、それはエラーを生成します。コードは次のとおりです。

データの作成:

counts <- c(18,17,15,20,10,20,25,13,12)
outcome <- gl(3,1,9)
treatment <- gl(3,3)

GLM のフィッティング:

glm.D93 <- glm(counts ~ outcome + treatment, family = quasipoisson(link = "log"))

分散分析表:

av.1=anova(glm.D93)
av.1
Analysis of Deviance Table

Model: quasipoisson, link: log

Response: counts

Terms added sequentially (first to last)


          Df Deviance Resid. Df Resid. Dev
NULL                          8    10.5814
outcome    2   5.4523         6     5.1291
treatment  2   0.0000         4     5.1291

ここで、「Resid. Dev」列を抽出する必要があります。だから私は試しましたstr

> str(av.1)
Classes ‘anova’ and 'data.frame':       3 obs. of  4 variables:
 $ Df        : int  NA 2 2
 $ Deviance  : num  NA 5.45 0
 $ Resid. Df : int  8 6 4
 $ Resid. Dev: num  10.58 5.13 5.13
 - attr(*, "heading")= chr "Analysis of Deviance Table\n\nModel: quasipoisson, link: log\n\nResponse: counts\n\nTerms added sequentially (first to last)\n\"| __truncated__

最後に抽出Resid. Devしましたが、エラーが発生します：

> av.1$Resid. Dev
Error: unexpected symbol in "av.1$Resid. Dev"