library("psych350lab")
data(superman, package = "psych350data")
result <- wg_anova_answers(superman,
dv1 = "rt_critics_score", dv2 = "rt_audience_score")
# Filled table
ft <- create_wg_anova_table(result,
dv_name = "Rating",
condition_labels = c("Critics Score", "Audience Score"),
table_title = "Table 1. Descriptive Statistics for Ratings")
ftRating |
M |
SD |
n |
|---|---|---|---|
Critics Score |
79.38 |
10.53 |
8 |
Audience Score |
80.38 |
10.53 |
8 |
# Blank table
ft_blank <- create_wg_anova_table(NULL,
dv_name = "Rating",
condition_labels = c("Critics Score", "Audience Score"),
KEY = FALSE)
ft_blankRating |
M |
SD |
n |
|---|---|---|---|
Critics Score |
|||
Audience Score |