CCratio.txt

put all summary files and heatmap.R in same folder.


> setwd("/home/student/test")
> source("CCratio.txt")




setwd("/home/student/test/testing")
heat<-function() source("heatmap.R")
a<-list.files(pattern="txt$")
filename=array(c(a))
heatmapname=array(c("Set1_0.6.png","Set1_0.7.png","Set1_0.8.png","Set1_0.9.png"))
for(x in 1:dim(filename))
{
heat()
}