result <- friedman_test(survey_data, trust_government, trust_media,
trust_science)
summary(result) # all sections
summary(result, ranks = FALSE) # hide rank table
Run the code above in your browser using DataLab