Displaying 1 result from an estimated 1 matches for "heatmap_data".
2011 Jun 09
0
How to shift the heat map
...# if this produces an error:
install.packages("gplots",repos="http://cran.ms.unimelb.edu.au/"))
# Prepare the data matrix
par(omi=c(1,1,1,1))
# Read in the .csv file
data<-read.csv("MEAN PERAK RT100 300-399.csv", header = TRUE, row.names=1)
boxplot(data)
heatmap_data<- data[,-1]
colnames(heatmap_data) <- if
(length(grep("^X[\\d]",colnames(heatmap_data),perl=TRUE)) != 0) # then
{gsub("^X([\\d].*)","\\1",colnames(heatmap_data),perl=TRUE)} else
{colnames(heatmap_data)}
# Define palette colours
rch<-rich.colors(2...