Wyodrębnij tylko współczynniki, których wartości p są znaczące z modelu logistycznego

Question

Uruchomiłem regresję logistyczną, której podsumowanie podałem. „Zdobyć” W związku z summary(score) daje mi następujące

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 

Co mam nadzieję osiągnąć to, aby zmienne nazwy i współczynniki tych zmiennych, które mają *, ** lub *** obok ich wartości Pr(>|z|). Innymi słowy, chcę wyżej wymienionych zmiennych i współczynników z Pr(>|z|) < .05.

Idealnie, chciałbym je umieścić w ramce danych. Niestety poniższy kod, który wypróbowałem, nie działa.

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

Co o tym:

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