library("psych350lab")
data(superman, package = "psych350data")
library(dplyr)
my_data <- superman |>
select(num, year, clark_height_in, clark_grp, height_diff) |>
filter(!is.na(height_diff))
result <- descriptives_answers(my_data,
vars = c("year", "clark_height_in", "height_diff")
)
result$Descriptives# 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
result$Sample_Size[1] 9