Open IndrajeetPatil opened 2 years ago
Needed because ggstatsplot::ggcoefstats() also allows taking data frame as inputs.
ggstatsplot::ggcoefstats()
safe_model_parameters <- function(x) { tryCatch( warning = function(cnd) if(grepl("A `data.frame` object", cnd)) tibble::as_tibble(x), parameters::model_parameters(x) ) } safe_model_parameters(iris) #> # A tibble: 150 × 5 #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> <dbl> <dbl> <dbl> <dbl> <fct> #> 1 5.1 3.5 1.4 0.2 setosa #> 2 4.9 3 1.4 0.2 setosa #> 3 4.7 3.2 1.3 0.2 setosa #> 4 4.6 3.1 1.5 0.2 setosa #> 5 5 3.6 1.4 0.2 setosa #> 6 5.4 3.9 1.7 0.4 setosa #> 7 4.6 3.4 1.4 0.3 setosa #> 8 5 3.4 1.5 0.2 setosa #> 9 4.4 2.9 1.4 0.2 setosa #> 10 4.9 3.1 1.5 0.1 setosa #> # … with 140 more rows safe_model_parameters(lm(wt ~ mpg, mtcars)) #> Parameter | Coefficient | SE | 95% CI | t(30) | p #> ------------------------------------------------------------------ #> (Intercept) | 6.05 | 0.31 | [ 5.42, 6.68] | 19.59 | < .001 #> mpg | -0.14 | 0.01 | [-0.17, -0.11] | -9.56 | < .001 #> #> Uncertainty intervals (equal-tailed) and p-values (two-tailed) computed #> using a Wald t-distribution approximation.
Created on 2022-10-15 with reprex v2.0.2
Needed because
ggstatsplot::ggcoefstats()
also allows taking data frame as inputs.Created on 2022-10-15 with reprex v2.0.2