test_data <- transform(survey_data,
trust_gov_high = as.integer(trust_government >= 4),
trust_media_high = as.integer(trust_media >= 4))
result <- mcnemar_test(test_data, var1 = trust_gov_high,
var2 = trust_media_high)
summary(result)
summary(result, contingency_table = FALSE)
Run the code above in your browser using DataLab