t_test_result <- t.test(wide_df$`Belfast North`, wide_df$`Belfast South`)