Извлекайте только переменные и коэффициенты с помощью Signif. менее 0,05 дюйма R

Question

Я выполнил регрессию гребня (функция linearRidge, пакетный гребень) в R, у этой регрессии было 55 коэффициентов. Как я могу извлечь только переменные и коэффициенты, у которых Pr (> | t |) меньше 0,05. Я просмотрел, и в модели lm это можно сделать следующим образом:

fit <- lm( formula, data=yourData)
coeffs <- summary(fit)$coefficients
coeffs[coeffs[4,] < 0.05,]

Заранее спасибо

Answer 1

Думаю, broom упростит:

library(tidyverse)
fit <- lm(mpg ~ cyl + disp + hp + drat + wt + qsec + vs + am,
  data = mtcars
)
coef <- broom::tidy(fit)
coef %>% filter(p.value < 0.05)

# or

subset(coef, coef$p.value < 0.05)