Chỉ trích xuất các hệ số có giá trị p là đáng kể từ mô hình hậu cần

Question

Tôi đã chạy hồi quy logistic, tóm tắt mà tôi đặt tên. "Ghi" Theo đó, summary(score) mang lại cho tôi những điều sau

Deviance Residuals: 
    Min  1Q Median  3Q  Max 
-1.3616 -0.9806 -0.7876 1.2563 1.9246 

         Estimate Std. Error z value Pr(>|z|) 
(Intercept)  -4.188286233 1.94605597 -2.1521921 0.031382230 * 
Overall   -0.013407201 0.06158168 -0.2177141 0.827651866 
RTN    -0.052959314 0.05015013 -1.0560154 0.290961160 
Recorded   0.162863294 0.07290053 2.2340482 0.025479900 * 
PV     -0.086743611 0.02950620 -2.9398438 0.003283778 ** 
Expire    -0.035046322 0.04577103 -0.7656878 0.443862068 
Trial    0.007220173 0.03294419 0.2191637 0.826522498 
Fitness    0.056135418 0.03114687 1.8022810 0.071501212 . 

--- 
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

(Dispersion parameter for binomial family taken to be 1) 

    Null deviance: 757.25 on 572 degrees of freedom 
Residual deviance: 725.66 on 565 degrees of freedom 
AIC: 741.66 

Number of Fisher Scoring iterations: 4 

Những gì tôi hy vọng sẽ đạt được là để có được các biến tên và hệ số của các biến trong đó có một *, **, hoặc *** bên cạnh giá trị Pr(>|z|) của họ. Nói cách khác, tôi muốn các biến và hệ số nói trên với một số Pr(>|z|) < .05.

Lý tưởng nhất, tôi muốn đưa chúng vào khung dữ liệu. Thật không may, đoạn mã sau tôi đã thử không hoạt động.

variable_try <- 
    summary(score)$coefficients[if(summary(score)$coefficients[, 4] <= .05, 
           summary(score)$coefficients[, 1]),] 

Error: unexpected ',' in "variable_try <- 
summary(score)$coefficients[if(summary(score)$coefficients[,4] < .05," 

Answer 1

gì về điều này:

data.frame(summary(score)$coef[summary(score)$coef[,4] <= .05, 4])