# Load required packages and data
library(dplyr)
data(survey_data)
# Perform ANOVA followed by Tukey post-hoc test
anova_result <- survey_data %>%
oneway_anova(life_satisfaction, group = education)
# Tukey post-hoc comparisons
anova_result %>% tukey_test()
# With weights
anova_weighted <- survey_data %>%
oneway_anova(life_satisfaction, group = education, weights = sampling_weight)
anova_weighted %>% tukey_test()
# Multiple variables
anova_multi <- survey_data %>%
oneway_anova(trust_government, trust_science, group = education)
anova_multi %>% tukey_test()
# Grouped analysis
anova_grouped <- survey_data %>%
group_by(region) %>%
oneway_anova(life_satisfaction, group = education)
anova_grouped %>% tukey_test()
Run the code above in your browser using DataLab