caixMatrix[caixTable > 0 ] <- 1
head(caixTable)
head(caixMatrix)