Mercurial > repos > yufei-luo > s_mart

diff SMART/DiffExpAnal/DESeqTools/loadTargetFile.R @ 31:0ab839023fe4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author m-zytnicki
date Tue, 30 Apr 2013 14:33:21 -0400
parents 94ab73e8a190
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/SMART/DiffExpAnal/DESeqTools/loadTargetFile.R	Tue Apr 30 14:33:21 2013 -0400
@@ -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"))
+	}	
+}