tidy_lm_add_r_squared: 'tidy_lm_add_r_squared'

In epongpipat/broomExtra: Permutes and bootstraps lm() and adds other useful statistics (broomExtra)

Description

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

Usage

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

Author(s)

Ekarin Eric Pongpipat

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))

epongpipat/broomExtra documentation built on Aug. 9, 2019, 12:10 p.m.