library("psych350lab")
data(superman, package = "psych350data")
result <- corr_answers(superman, "clark_height_in", "rt_critics_score")
ft <- create_corr_table("RH1", c("clark_height_in", "rt_critics_score"), result)
ft
|
r / Mean |
p / SD |
df / N |
Reject or Retain? |
|---|---|---|---|---|
Correlation: RH1 |
.03 |
.950 |
6 |
Retain the H0 null hypothesis |
Variable 1: clark_height_in |
73.37 |
1.68 |
11 |
|
Variable 2: rt_critics_score |
79.38 |
10.53 |
8 |