# Load required packages and data
library(dplyr)
data(survey_data)
# Perform Friedman followed by pairwise Wilcoxon post-hoc
friedman_result <- survey_data %>%
friedman_test(trust_government, trust_media, trust_science)
# Pairwise Wilcoxon comparisons (default: Bonferroni)
friedman_result %>% pairwise_wilcoxon()
# With Holm correction (less conservative)
friedman_result %>% pairwise_wilcoxon(p_adjust = "holm")
# With Benjamini-Hochberg (controls false discovery rate)
friedman_result %>% pairwise_wilcoxon(p_adjust = "BH")
# With weights
fw_weighted <- survey_data %>%
friedman_test(trust_government, trust_media, trust_science,
weights = sampling_weight)
fw_weighted %>% pairwise_wilcoxon()
# Grouped analysis
fw_grouped <- survey_data %>%
group_by(region) %>%
friedman_test(trust_government, trust_media, trust_science)
fw_grouped %>% pairwise_wilcoxon()
Run the code above in your browser using DataLab