I built some data frame which is based on samples:
library(DescTools) N=5 C=4 y<-CombSet(0:(C-1),N,repl=TRUE,ord=FALSE); data_y <- data.fram