view SMART/DiffExpAnal/DESeqTools/loadTargetFile.R @ 18:94ab73e8a190

Uploaded
author m-zytnicki
date Mon, 29 Apr 2013 03:20:15 -0400
parents
children
line wrap: on
line source

# 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"))
	}	
}