view GetNormalizedExpression.R @ 17:64bd08a2577c draft

Uploaded
author ning
date Fri, 15 Mar 2013 18:56:26 -0400
parents aebe98ba5c22
children
line wrap: on
line source

sink(file="/tmp/none")
sink("/dev/null")
options(warn=-1)
options(echo=F) 

invisible("EBSeq")
suppressMessages(library("EBSeq"))

args <- commandArgs(trailingOnly = T)
inputfile <- args[1]
WhetherSampleName <- args[2]
outputfile <- args[3]
Boxplots<-args[4]
Sizesout <-args[5]

print(args)

if(WhetherSampleName=="y"){
	ReadIn=read.table(inputfile,stringsAsFactors=F,header=T, sep="\t")
	Names=names(ReadIn)[-1]
	}
if(WhetherSampleName=="n"){
	ReadIn=read.table(inputfile,stringsAsFactors=F,header=F, sep="\t")
}

GeneMat=do.call(cbind,ReadIn[-1])
rownames(GeneMat)=ReadIn[[1]]
if(WhetherSampleName=="y")colnames(GeneMat)=Names


Sizes=MedianNorm(GeneMat)

Data.norm=GetNormalizedMat(GeneMat, Sizes)

write.table(round(Data.norm,2),file=outputfile,quote=F,col.names=T,row.names=T,sep = "\t")
pdf(Boxplots)
boxplot(Data.norm,log="y",ylim=c(10^-1,10^6))
dev.off()

write.table(Sizes,file=Sizesout,quote=F,col.names=F,row.names=F,sep = "\t")