library(broom)
data("PlantGrowth")
fit <- lm(weight ~ group, data = PlantGrowth)
tidy(fit)
#> # A tibble: 3 x 5
#> term estimate std.error statistic p.value
#> <chr> <dbl> <dbl> <dbl> <dbl>
#> 1 (Intercept) 5.03 0.197 25.5 1.94e-20
#> 2 grouptrt1 -0.371 0.279 -1.33 1.94e- 1
#> 3 grouptrt2 0.494 0.279 1.77 8.77e- 2
<sup>Created on 2019-10-24 by the reprex package (v0.3.0)</sup>