上传文件至 '.'

RNAseq_1_expr_ballgown.R

@@ -56,7 +56,7 @@ colnames(logexpr_out)[1]<-"Gene"
 
 message("Write log2 expression file\n")
 
-write.table(logexpr_out,file =file = paste(out_dir,opt$project_code,"_geneexp_log2FPKM.txt",sep=""),sep="\t",row.names=F,quote=F)
+write.table(logexpr_out,file = paste(out_dir,opt$project_code,"_geneexp_log2FPKM.txt",sep=""),sep="\t",row.names=F,quote=F)
 }else{ 
 
 #output expression file with fpkm 
@@ -68,6 +68,3 @@ message("Write fpkm expression file\n")
 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)
-
-