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"
)
create_linear_reg_correlation_interp_table(result, KEY = TRUE)Predictor |
Interpretation |
|---|---|
Height |
Height is not correlated with Critics Score |
Audience |
Audience is not correlated with Critics Score |
create_linear_reg_correlation_interp_table(result, KEY = FALSE)Predictor |
Interpretation |
|---|---|
Height |
|
Audience |