Linear Regression Model Evaluation Text

Description

Returns formatted text for evaluating the multiple linear regression model: (a) does the model work, and (b) how well does it work. Either filled (answer key) or blank (worksheet).

Usage

linear_reg_model_evaluation(reg_results_list, KEY = TRUE, highlight = TRUE)

regression_model_evaluation(...)

Arguments

reg_results_list	Output from linear_reg_answers().
KEY	Logical. If TRUE (default), show filled answers. If FALSE, show blanks.
highlight	Logical. If TRUE (default) and KEY = TRUE, wrap values in highlight markup.
…	Additional arguments passed to underlying functions

Value

A character string with markdown formatting.

Examples

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_evaluation(result, KEY = TRUE, highlight = FALSE))

**a. Does the multiple linear regression model work? Where did you look to decide?**

No, p >= .05, significant ANOVA (F = 1.49, df = 2, 5, p = .311)

**b. How well does the multiple linear regression model work?**

Accounts for 37.3% of Critics Score variance (R² = .37)