Mercurial > repos > yufei-luo > differential_expression_analysis_pipeline_for_rnaseq_data

diff DiffExpAnal/DESeqTools/loadTargetFile.R @ 0:63799b789162 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author yufei-luo
date Tue, 22 Jan 2013 10:07:03 -0500
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/DiffExpAnal/DESeqTools/loadTargetFile.R	Tue Jan 22 10:07:03 2013 -0500
@@ -0,0 +1,17 @@
+# 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"))
+	}	
+}