library("psych350lab")
data(superman, package = "psych350data")
result <- bg_anova_answers(superman, iv = "clark_grp", dv = "rt_critics_score")
result$ANOVA$F
[1] 1.498389
$p_value
[1] 0.2668004
$df_between
[1] 1
$df_within
[1] 6
$mse
[1] 103.4722
$method
[1] "One-way ANOVA"
result$Descriptives# A tibble: 2 × 5
iv mean sd n sem
<fct> <dbl> <dbl> <int> <dbl>
1 6ft or taller 76.8 11.1 6 4.54
2 Under 6ft 87 1.41 2 1