library("psych350lab")
data(superman, package = "psych350data")
result <- bg_anova_answers(superman, iv = "clark_grp", dv = "rt_critics_score")
ft <- create_anova_source_table(result,
iv_name = "Height Group", dv_name = "Critics Score")
ftSource |
df |
MS |
F |
p |
|---|---|---|---|---|
Between Groups (Height Group) |
1 |
1.50 |
.267 |
|
Within Groups (Error) |
6 |
103.47 |
||
Total |
7 |