Skip to content

Instantly share code, notes, and snippets.

@pedroj

pedroj/webord.R

Created February 20, 2012 23:37
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save pedroj/1872314 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save pedroj/1872314 to your computer and use it in GitHub Desktop.
Download ZIP
Ordering matrices. Web must be a matrix with 'dimnames'
Raw
webord.R
#--------------------------------------------------------------
# Ordering matrices. Web must be a matrix with 'dimnames'
#--------------------------------------------------------------
mat.ord <- function(web) {
web.ord <- web[order(rowSums(web), decreasing = TRUE),
order(colSums(web), decreasing = TRUE)]
web.ord
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment