Mercurial > repos > fubar > toolfactory

annotate inkblotheatmap/inkblotheatmap.Rscript @ 1:ab0148be2111 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author fubar
date Wed, 06 Jun 2012 23:04:16 -0400
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
ab0148be2111 Uploaded
fubar
parents:
diff changeset
1
ab0148be2111 Uploaded
fubar
parents:
diff changeset
2 # note this script takes NO input or output because it generates random data
ab0148be2111 Uploaded
fubar
parents:
diff changeset
3 foo = data.frame(a=runif(100),b=runif(100),c=runif(100),d=runif(100),e=runif(100),f=runif(100))
ab0148be2111 Uploaded
fubar
parents:
diff changeset
4 bar = as.matrix(foo)
ab0148be2111 Uploaded
fubar
parents:
diff changeset
5 pdf( "heattest.pdf" )
ab0148be2111 Uploaded
fubar
parents:
diff changeset
6 heatmap(bar,main='Random Heatmap')
ab0148be2111 Uploaded
fubar
parents:
diff changeset
7 dev.off()