# Load required packages and data
library(dplyr)
data(survey_data)
# Perform Kruskal-Wallis followed by Dunn post-hoc test
kw_result <- survey_data %>%
kruskal_wallis(life_satisfaction, group = education)
# Dunn post-hoc comparisons (default: Bonferroni)
kw_result %>% dunn_test()
# With Holm correction (less conservative)
kw_result %>% dunn_test(p_adjust = "holm")
# With Benjamini-Hochberg (controls false discovery rate)
kw_result %>% dunn_test(p_adjust = "BH")
# With weights
kw_weighted <- survey_data %>%
kruskal_wallis(life_satisfaction, group = education,
weights = sampling_weight)
kw_weighted %>% dunn_test()
# Multiple variables
kw_multi <- survey_data %>%
kruskal_wallis(life_satisfaction, trust_government,
group = education)
kw_multi %>% dunn_test()
# Grouped analysis
kw_grouped <- survey_data %>%
group_by(region) %>%
kruskal_wallis(life_satisfaction, group = education)
kw_grouped %>% dunn_test()
Run the code above in your browser using DataLab