produce a flextable describing a linear model produced by function lm.

# S3 method for lm
as_flextable(x, ...)

Arguments

x

lm model

...

unused argument

Illustrations

See also

Examples

if(require("broom")){
  lmod <- lm(rating ~ complaints + privileges +
    learning + raises + critical, data=attitude)
  ft <- as_flextable(lmod)
  ft
}
#> a flextable object.
#> col_keys: `term`, `estimate`, `std.error`, `statistic`, `p.value`, `signif` 
#> header has 1 row(s) 
#> body has 6 row(s) 
#> original dataset sample: 
#>          term    estimate  std.error  statistic      p.value signif
#> 1 (Intercept) 11.01113043 11.7039358  0.9408058 0.3561781673       
#> 2  complaints  0.69205262  0.1488643  4.6488827 0.0001014085       
#> 3  privileges -0.10356202  0.1347297 -0.7686650 0.4495905743       
#> 4    learning  0.24906128  0.1596189  1.5603496 0.1317679549       
#> 5      raises -0.03346062  0.2022762 -0.1654205 0.8699985577