library("psych350lab")
data(superman, package = "psych350data")
result <- corr_answers(superman, "clark_height_in", "rt_critics_score")
result$Correlation$r[1] 0.02680351
result$Descriptives# A tibble: 2 × 5
variable mean sd n sem
<chr> <dbl> <dbl> <int> <dbl>
1 clark_height_in 73.4 1.68 11 0.507
2 rt_critics_score 79.4 10.5 8 3.72