CODEWITHSUNDEEP
rlapplysummary
Pablo
Pablo

Reputation: 41

How can I get the p.value of all regressions using lapply function

I am using an example, with mtcars, to later use it in the analysis of my data. I can get a list of summaries and the coef function on each regressions. My question is how can I get the p.value of all regressions in a list using lapply function?

Here is my code

    library(data.table)
    regressions <- 
    data.table(mtcars)[, 
          .(Myregressions = lapply(.SD, function(x) summary(lm(mpg ~ x)))), 
          .SDcols = -1]

Regressions$MyRegressions
Regressions[, lapply(MyRegressions, coef)]

Upvotes: 1

Views: 82

Answers (1)

akrun
akrun

Reputation: 887741

We can loop over the 'MyRegressions' and extract the column

regressions[, lapply(Myregressions, function(x) coef(x)[, "Pr(>|t|)"])]

If we need to extract only selected values

regressions[, list(lapply(Myregressions, function(x) {
      x1 <- coef(x)[, "Pr(>|t|)"]
      x1[x1 < 0.05]}))]$V1

Upvotes: 1

Related Questions