tidy_lm_add_r_squared

add r.squared and adj.r.squared to tidy table of lm results.

tidy_lm_add_r_squared(tidy_df, n)

Arguments

tidy_df	a tidy table of lm results
n	the number of participants analyzed. Using nrow(data), where data is the dataframe used in lm is a good option.

Value

column of r.squared and adj.r.squared added a tidy table of a lm

Examples

packages <- c("broom", "broomExtra", "dplyr", "modelr", "tibble")
xfun::pkg_attach2(packages, message = F)

data <- tibble(
  a = scale(sample.int(100), scale = F),
  b = scale(sample.int(100), scale = F),
  c = b^2,
  d = scale(sample.int(100), scale = F)
)

lm(a ~ b, data) %>%
  tidy() %>%
  tidy_lm_add_r_squared(., n = nrow(data))
#> Source: local data frame [2 x 7]
#> Groups: <by row>
#> 
#> # A tibble: 2 x 7
#>   term         estimate std.error statistic p.value r.squared adj.r.squared
#>   <chr>           <dbl>     <dbl>     <dbl>   <dbl>     <dbl>         <dbl>
#> 1 (Intercept) -2.78e-16     2.91  -9.55e-17   1      9.31e-35      -0.0102 
#> 2 b           -3.61e- 2     0.101 -3.58e- 1   0.721  1.30e- 3      -0.00889