data(Safariland)
web <- Safariland
sortweb(Safariland, sort.order="dec")
plotweb(sortweb(Safariland, sort.order="inc"), method="normal") #rares species first
visweb(sortweb(Safariland,sort.order="inc"), type="diagonal", square="compartment", text="none", frame=TRUE)
# 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