library("psych350lab")
data(superman, package = "psych350data")
library(dplyr)
my_data <- superman |>
select(year, clark_height_in, height_diff) |>
filter(!is.na(height_diff))
univariate_stats_answers(my_data)# A tibble: 3 × 5
variable mean sd n sem
<chr> <dbl> <dbl> <int> <dbl>
1 year 1993. 28.4 9 9.47
2 clark_height_in 73.7 1.73 9 0.577
3 height_diff 8.40 2.32 9 0.774