library("psych350lab")
data(superman, package = "psych350data")
sm <- superman |>
dplyr::filter(!is.na(rt_critics_score), !is.na(rt_audience_score))
result <- linear_reg_answers(
data = sm,
criterion = "rt_critics_score",
quant_predictors = c("clark_height_in", "rt_audience_score"),
quant_labels = c("Height", "Audience"),
criterion_label = "Critics Score"
)
cat(linear_reg_model_statistics(result, KEY = TRUE, highlight = FALSE))R = .61 R² = .37 F = 1.49 df = 2, 5 p = .311