s_data$Age_SNB <- factor(s_data$Age_SNB) s_data$Gender_SNB <- factor(s_data$Gender_SNB) s_data$Handedness_SNB <- factor(s_data$Handedness_SNB) s_data$Dotcounting_SNB <- factor(s_data$Dotcounting_SNB) s_data$developmentaldisorder_SNB <- factor(s_data$developmentaldisorder_SNB) av_data1_all<-s_complete %>% group_by(Gender_SNB, num_SNB)%>% dplyr::summarize(prop=mean(num_SNB), synch = sum(num_SNB), n = n(), .groups='drop') please edit this code properly

s_data <- s_data %>% 
  group_by(Gender_SNB, num_SNB) %>% 
  dplyr::summarize(prop=mean(num_SNB), synch = sum(num_SNB),
                   n = n(), .groups='drop')