library("psych350lab")
data(superman, package = "psych350data")
sm <- superman
sm$era <- ifelse(sm$year >= 2000, 2, 1)
result <- anova_factorial_answers(sm, dv = "clark_height_in",
iv1 = "clark_grp", iv2 = "era",
iv1_labels = c("Under 6ft", "6ft+"),
iv2_labels = c("Pre-2000", "Post-2000"))
ft <- create_factbg_comparisons_table(result,
iv1_name = "Height Group", iv2_name = "Era")
ftFactorial ANOVA Table with Cell Comparisons
Description
Creates a flextable showing cell means in a 2x2 grid with comparison operators (>, <, =) based on LSD minimum mean difference, plus estimated marginal means. Includes vertical comparison rows between IV1 levels for 2x2 designs.
Usage
create_factbg_comparisons_table(
anova_results_list,
iv1_name = "IV1",
iv2_name = "IV2",
KEY = TRUE
)
factbg_table_with_comparisons(
anova_results_list,
iv1_name = "IV1",
iv2_name = "IV2",
KEY = TRUE
)
Arguments
anova_results_list
|
Output from anova_factorial_answers().
|
iv1_name
|
Character. Display name for IV1 (rows). |
iv2_name
|
Character. Display name for IV2 (columns). |
KEY
|
Logical. If TRUE, show filled values and comparisons. If FALSE, show blank template.
|
Value
A flextable::flextable() object.