view deseq/differential_expression_analysis_pipeline_for_rnaseq_data-a03838a6eb54/DiffExpAnal/DESeqTools/loadTargetFile.R @ 10:6e573fd3c41b draft

Uploaded
author yufei-luo
date Mon, 13 May 2013 10:06:30 -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"))
	}	
}