# Load required packages and data
library(dplyr)
data(survey_data)
# Basic Kruskal-Wallis test (comparing across education levels)
survey_data %>%
kruskal_wallis(life_satisfaction, group = education)
# Multiple variables
survey_data %>%
kruskal_wallis(life_satisfaction, income, trust_government,
group = education)
# Using tidyselect helpers
survey_data %>%
kruskal_wallis(starts_with("trust_"), group = education)
# Weighted analysis
survey_data %>%
kruskal_wallis(life_satisfaction, group = education,
weights = sampling_weight)
# Grouped analysis (separate test for each region)
survey_data %>%
group_by(region) %>%
kruskal_wallis(life_satisfaction, group = education)
# Compare across employment status (5 groups)
survey_data %>%
kruskal_wallis(income, group = employment)
Run the code above in your browser using DataLab