上传文件至 '.'

RNAseq_1_expr_ballgown.R

@@ -54,20 +54,20 @@ logexpr<-apply(expr,2,function(x){log2(x+as.numeric(opt$floor_value))})
 logexpr_out<-cbind(rownames(logexpr),round(logexpr,3))
 colnames(logexpr_out)[1]<-"Gene"
 
-message("output log2 expression file\n")
+message("Write log2 expression file\n")
 
-write.table(logexpr_out,file = paste(out_dir,opt$project_code,"_geneexp_log2fpkm_floor0p01_c",ncol(logexpr),"r",nrow(logexpr),"_",Sys.Date(),".txt",sep=""),sep="\t",row.names=F,quote=F)
+write.table(logexpr_out,file =file = paste(out_dir,opt$project_code,"_geneexp_log2FPKM.txt",sep=""),sep="\t",row.names=F,quote=F)
 }else{ 
 
 #output expression file with fpkm 
 expr<-cbind(rownames(expr),round(expr,3))
 colnames(expr)[1]<-"Gene"
 
-message("output fpkm expression file\n")
+message("Write fpkm expression file\n")
 
-write.table(expr,file = paste(out_dir,opt$project_code,"_geneexp_fpkm_c",ncol(expr),"r",nrow(expr),"_",Sys.Date(),".txt",sep=""),sep="\t",row.names=F,quote=F)
+write.table(expr,file = paste(out_dir,opt$project_code,"_geneexp_FPKM.txt",sep=""),sep="\t",row.names=F,quote=F)
 }
 
-
+write.table(expr_fpkm_out,file = paste(out_dir,opt$project_code,"_geneexp_FPKM.txt",sep=""),sep="\t",row.names=F,quote=F)