set.seed(2019); datT <- matrix(sample.int(20,60,replace=TRUE), ncol=6,
dimnames=list(letters[1:10], LETTERS[1:6])) -3
datT[,2] <- datT[,2] +2
datT[which(datT <0)] <- 0
razorNoFilter(datT, speNa="A", totNa="B")
Run the code above in your browser using DataLab