## Not run:
# set.seed(777)
# random.mat <- create.rand.mat(size = 1000, distrib = "norm")$rand.matrix
# res <- rm.matrix.validation(random.mat) # ok
# res <- rm.get.threshold(random.mat) # threshold about 3.19
# rm.show.plots(res$comparison.plots)
# cleaned.matrix <- rm.denoise.mat(random.mat, threshold = 3.2)
# cleaned.matrix <- rm.discard.zeros(cleaned.matrix)
# ## End(Not run)
Run the code above in your browser using DataLab