# Load required packages and data
library(dplyr)
data(survey_data)
# Create dichotomous variables
test_data <- survey_data %>%
mutate(
trust_gov_high = as.integer(trust_government >= 4),
trust_media_high = as.integer(trust_media >= 4)
)
# McNemar test
test_data %>%
mcnemar_test(var1 = trust_gov_high, var2 = trust_media_high)
# Grouped analysis
test_data %>%
group_by(region) %>%
mcnemar_test(var1 = trust_gov_high, var2 = trust_media_high)
Run the code above in your browser using DataLab