view SMART/DiffExpAnal/DESeqTools/loadTargetFile.R @ 31:0ab839023fe4

Uploaded

# loadTargetFile
# loads file containing sample info

# input : targetFile Name
# output : target

# created Feb 6th, 2012
# Marie-Agnes Dillies


loadTargetFile <- function(targetFile, header){
if(header!=0){
  return(read.table(targetFile, header=T, sep="\t"))
	}else if(header==0){
  return(read.table(targetFile, sep="\t"))
	}	
}