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_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_correlation_interp_table(result, KEY = FALSE)Predictor |
Interpretation |
|---|---|
Height |
|
Audience |