Mercurial > repos > yufei-luo > differential_expression_analysis_pipeline_for_rnaseq_data
annotate DiffExpAnal/DESeqTools/loadTargetFile.R @ 0:63799b789162 draft
Uploaded
| author | yufei-luo |
|---|---|
| date | Tue, 22 Jan 2013 10:07:03 -0500 |
| parents | |
| children |
| rev | line source |
|---|---|
| 0 | 1 # loadTargetFile |
| 2 # loads file containing sample info | |
| 3 | |
| 4 # input : targetFile Name | |
| 5 # output : target | |
| 6 | |
| 7 # created Feb 6th, 2012 | |
| 8 # Marie-Agnes Dillies | |
| 9 | |
| 10 | |
| 11 loadTargetFile <- function(targetFile, header){ | |
| 12 if(header!=0){ | |
| 13 return(read.table(targetFile, header=T, sep="\t")) | |
| 14 }else if(header==0){ | |
| 15 return(read.table(targetFile, sep="\t")) | |
| 16 } | |
| 17 } |