library("psych350lab")
data(superman, package = "psych350data")
sm <- superman[!is.na(superman$rt_critics_score) &
!is.na(superman$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"
)
create_regression_weight_interpretations(result, KEY = TRUE)Interactive Regression Weight Interpretations (Webexercise)
Description
Creates a tinytable showing regression weight interpretation for each predictor, either filled (answer key with red HTML) or blank. Requires tinytable.
Usage
create_regression_weight_interpretations(
reg_results_list,
interpretations = NULL,
KEY = TRUE
)
Arguments
reg_results_list
|
Output from linear_reg_answers().
|
interpretations
|
Named list or NULL. Custom interpretations.
|
KEY
|
Logical. If TRUE (default), show filled. If FALSE, blank.
|
Value
A tinytable object.