annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
1 # loadTargetFile
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
2 # loads file containing sample info
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
3
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
4 # input : targetFile Name
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
5 # output : target
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
6
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
7 # created Feb 6th, 2012
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
8 # Marie-Agnes Dillies
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
9
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
10
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
11 loadTargetFile <- function(targetFile, header){
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
12 if(header!=0){
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
13 return(read.table(targetFile, header=T, sep="\t"))
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
14 }else if(header==0){
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
15 return(read.table(targetFile, sep="\t"))
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
16 }
6e573fd3c41b Uploaded
yufei-luo
parents:
diff changeset
17 }