merge r语言daframe_使用R语言包处理芯片cel格式数据 全自动R代码

uptimes,]

lo

up

lo

write.csv(up,paste("up",constr[i],"csv",sep="."),row.names=FALSE)

write.csv(lo,paste("lo",constr[i],"csv",sep="."),row.names=FALSE)

if(all) selected

else selected

if(nrow(selected)>2){

try({

colnames(selected)[1]

sname

sname[sname=="character(0)"]

fmt

bname

sname

rownames(selected)

selected

colnames(selected)

if(all){

annotation

rownames(annotation)

}else{

gp

gp

targets

selcol

selected

annotation

rownames(annotation)

}

pdf(paste("heatmap",constr[i],"pdf",sep="."),width=8+ncol(selected)/10,height=2+nrow(selected)/10)

pheatmap(selected, annotation=annotation, scale=scale, fontsize=9, fontsize_row=6, fontfamily="mono", cluster_rows=cluster_rows, cluster_cols=cluster_cols)

dev.off()

})

}

}

}

doAll

constr=NULL,times=2,cut.p.val=0.01,cut.fdr.val=NULL,outputFolder="output",

all=FALSE,scale="row",doQC=TRUE,cluster_rows=TRUE,cluster_cols=TRUE){

setwd(workingdir)

cat("Data input\n")

data

cat("Get Expression\n"