# Group by Gender_SNB and num_SNB, and calculate summary statistics av_data1_all <- s_complete %>% group_by(Gender_SNB, num_SNB) %>% summarise(mean_num_SNB = mean(num_SNB), sum_synch = sum(synch), count = n()) %>% ungroup()

av_data1_all <- s_complete %>% 
  group_by(Gender_SNB, num_SNB) %>% 
  summarise(mean_num_SNB = mean(num_SNB),
            sum_synch = sum(synch),
            count = n()) %>%
  ungroup()