# NOT RUN {
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