> s_complete$Handedness_SNB <- factor(s_complete$developmentaldisorder_SNB) > table(s_complete$developmentaldisorder_SNB) No Yes 2712 796 > levels(s_complete$developmentaldisorder_SNB) NULL
> table(s_complete$is_SNB) False True 2892 716 > table(s_complete$diagnosis_SNB) False True 2970 638