data(Safariland)
web <- Safariland
sortweb(Safariland, sort.order = "dec")
# sorted by a given (here random) sequence
sequence <- list(seq.higher = sample(colnames(Safariland)),
seq.lower = sample(rownames(Safariland)))
web.ordered <- sortweb(web, sort.order = "seq", sequence = sequence)
Run the code above in your browser using DataLab