set.seed(1235)
testMatrix <- matrix(runif(100,0,1), nrow=10)
## filtering
(testMatrix.filter <- filterPmat(testMatrix, threshold=0.05))
## more strict filtering
(testMatrix.strictfilter <- filterPmat(testMatrix, threshold=0.01))
## no filtering
(testMatrix.nofilter <- filterPmat(testMatrix))
Run the code above in your browser using DataLab