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"))
cat(format_factbg_results("RH1", result,
iv1_name = "Height Group", iv2_name = "Era",
dv_name = "Height (inches)"))Format Factorial ANOVA Results for Fill-in-the-Blank
Description
Returns a formatted text string of all factorial ANOVA results including interaction, both main effects, and LSD calculations.
Usage
format_factbg_results(
rh_name,
anova_results_list,
iv1_name = "IV1",
iv2_name = "IV2",
dv_name = "DV",
Key = TRUE
)
Arguments
rh_name
|
Character. Research hypothesis name. |
anova_results_list
|
Output from anova_factorial_answers().
|
iv1_name
|
Character. Display name for IV1. |
iv2_name
|
Character. Display name for IV2. |
dv_name
|
Character. Display name for DV. |
Key
|
Logical. If TRUE, show answers; if FALSE, show blanks.
|
Value
A character string.