Skip to content

Instantly share code, notes, and snippets.

@even4void

even4void/genes_heatmap.R

Created March 16, 2011 20:19
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save even4void/873226 to your computer and use it in GitHub Desktop.
Save even4void/873226 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
genes_heatmap.R
library(mixOmics)
library(RColorbrewer)
X <- replicate(6, rnorm(50))
X.row.mds <- cmdscale(dist(X), k=1)
X.col.mds <- cmdscale(dist(t(X)), k=1)
cim(cor(X)[order(X.col.mds),order(X.col.mds)], col=rev(brewer.pal(8, "RdBu")))
cim(cor(t(X))[order(X.row.mds),order(X.row.mds)], col=rev(brewer.pal(8, "RdBu")))
cim(X, col=rev(brewer.pal(8, "RdBu"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment