使用摘要提取R中的选定输出

Question

使用摘要提取R中的选定输出

model <- glm(am ~ disp + hp, data=mtcars, family=binomial)
T1<-summary(model)
T1

，这是我得到的输出

 Call:
    glm(formula = am ~ disp + hp, family = binomial, data = mtcars)
    
    Deviance Residuals: 
        Min       1Q   Median       3Q      Max  
    -1.9665  -0.3090  -0.0017   0.3934   1.3682  
    
    Coefficients:
                Estimate Std. Error z value Pr(>|z|)  
    (Intercept)  1.40342    1.36757   1.026   0.3048  
    disp        -0.09518    0.04800  -1.983   0.0474 *
    hp           0.12170    0.06777   1.796   0.0725 .
    ---
    Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
    
    (Dispersion parameter for binomial family taken to be 1)
    
    Null deviance: 43.230  on 31  degrees of freedom
    Residual deviance: 16.713  on 29  degrees of freedom
    AIC: 22.713
    
    Number of Fisher Scoring iterations: 8

我只想提取系数和零偏差，如下所示，我如何做到这一点，我尝试使用$coefficeint，但它只显示系数值？

Coefficients:
(Intercept)        disp          hp 
1.40342203   -0.09517972      0.12170173 

Null deviance: 43.230  on 31  degrees of freedom
Residual deviance: 16.713  on 29  degrees of freedom
AIC: 22.713

Answer 1

更新:尝试如下：

  coef(model)
  model$coefficients
  model$null.deviance
  model$deviance
  model$aic

如果您输入T1$，则会出现一个窗口，您可以选择所需的任何内容。

  T1$null.deviance    
  T1$coefficients

>   T1$null.deviance        
[1] 43.22973
>   T1$coefficients
               Estimate Std. Error   z value   Pr(>|z|)
(Intercept)  1.40342203 1.36756660  1.026218 0.30478864
disp        -0.09517972 0.04800283 -1.982794 0.04739044
hp           0.12170173 0.06777320  1.795721 0.07253897