invec <- c("1,2,4,5,6", "1,2,4,5,6", "1,2,4,5,6",
"1,2,4,5,6", "1,2,5,6", "1,2,5,6")
A <- strsplit(invec, ",")
splitstackshape:::binaryMat(A)
splitstackshape:::binaryMat(A, "ZZZ")
rm(invec, A)Run the code above in your browser using DataLab