df ` = sum_fit $df], ` F statistic ` = str_c(sum_fit $fstatistic %>% round(digits), ' ', stars) ) } screen_many_regs 0) fit_obj_list % append(rlang :: dots_list(.)) # browser() fit_obj_list %>% screenreg( custom.note = map2_chr(., seq_along(.), ~ Problem Setting obs.` = sum_fit$residuals %>% length(), ` Num. R^2` = sum_fit$adj.r.squared %>% round(digits), # `Num. Library(tidyverse) # for data wrangling library(alr4) # for the data sets # library(GGally) library(parameters) library(performance) library(see) library(car) library(broom) library(modelsummary) library(texreg) ggplot2 :: theme_set(ggplot2 :: theme_bw()) knitr ::opts_chunk $ set( fig.width = 10, fig.asp = 0.5, fig.retina = 3, dpi = 300, out.width = '100%', message = FALSE, echo = TRUE, cache = TRUE ) my_gof % symnum( corr = FALSE, na = FALSE, cutpoints = c( 0.
