library("ALL")
library(gplots)
require(graphics);require(grDevices)
data<-read.csv("E:\\R data\\后续分析\\16 pairs dealed data\\lnc T vs C subset larger 2 times.csv",header=T)
data1<-data[,25:40]
y<-as.matrix(data1)
png(file="lnc heatmap class predict.png", bg="transparent",width=600, height=600)
hv <- heatmap.2(y, col =greenred(75), scale = "column",
labRow=F,
key=TRUE, symkey=FALSE, density.info="none", trace="none", cexRow=0.5)
dev.off()


雷达卡



京公网安备 11010802022788号







