library("psych350lab")
data(superman, package = "psych350data")
result <- bg_anova_answers(superman, iv = "clark_grp", dv = "rt_critics_score")
ft <- create_bg_anova_combined_table(result,
rh_name = "RH1",
iv_name = "Height Group", dv_name = "Critics Score",
iv_labels = c("Under 6ft", "6ft+"))
ft
|
F / Mean |
p / SD |
df / N |
MSE |
Decision |
|---|---|---|---|---|---|
ANOVA: RH1 |
1.50 |
.267 |
1, 6 |
103.47 |
Retain H0 |
Under 6ft |
76.83 |
11.13 |
6 |
||
6ft+ |
87.00 |
1.41 |
2 |