## test the split function
label0 <- rep("class 0", 10) ## a unique label
label1 <- c(rep("class 0",2),rep("class 1",3), rep("class 2", 5)) ## few labels
label2 <- c(rep("class 0",4),"class 1", rep("class 2",2),rep("class 3",2), "class 4","class 5","class 6") ## a lot of dif. labels

mask0 <- classys.helper.split(label0)
idx00 = label0[mask0]
idx01 = label0[!mask0]
cat("for label 0: ", label0 , "\n")
cat(idx00, "\n")
cat(idx01, "\n")

mask1 <- classys.helper.split(label1)
idx10 = label1[mask1]
idx11 = label1[!mask1]
cat("for label 1: ", label1, "\n")
cat(idx10, "\n")
cat(idx11, "\n")


mask2 <- classys.helper.split(label2)
idx20 = label2[mask2]
idx21 = label2[!mask2]
cat("for label 2: ", label2, "\n")
cat(idx20, "\n")
cat(idx21, "\n")