## Not run:
# set.seed(777)
# random.matrix <- create.rand.mat(size = 1000, distrib = "norm")$rand.matr
# dim(random.matrix)
# res <- rm.get.threshold(random.matrix)
# rm.show.plots(res$comparison.plots) # watch sequence of plots once more
# ## End(Not run)
Run the code above in your browser using DataLab