set.seed(9)
MM <- matrix(runif(100, -1, 1), nrow = 10) # test data
tsts <- c("even", "log", "exp", "ecdf", "poslog", "posexp")
for (i in 1:length(tsts)) {
nl <- 10
if(tsts[i] == "ecdf") nl <- seq(0.1, 0.9, 0.1)
levels <- chooseLvls(M = MM, n = nl, mode = tsts[i], showHist = TRUE)
}Run the code above in your browser using DataLab