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_combined_table(result, KEY = TRUE)Predictor |
Is variable |
r (p) |
b (p) |
Bivariate/Multivariate Results Categories: |
|---|---|---|---|---|
Height |
Quant |
.03 (.950) |
0.51 (.813) |
a |
Audience |
Quant |
.60 (.113) |
0.61 (.146) |
a |
create_linear_reg_combined_table(result, KEY = FALSE)Predictor |
Is variable |
r (p) |
b (p) |
Bivariate/Multivariate Results Categories: |
|---|---|---|---|---|
Height |
||||
Audience |