Mercurial > repos > yhoogstrate > edger_with_design_matrix
changeset 12:c672e76503b2 draft
Uploaded
| author | yhoogstrate |
|---|---|
| date | Thu, 09 Jan 2014 06:55:28 -0500 |
| parents | b8b3d63b60ab |
| children | 6e475c849a38 |
| files | edgeR_DGE.xml |
| diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/edgeR_DGE.xml Thu Jan 09 06:48:17 2014 -0500 +++ b/edgeR_DGE.xml Thu Jan 09 06:55:28 2014 -0500 @@ -68,7 +68,12 @@ raw_data <- read.delim(designmatrix,header=T,stringsAsFactors=T) ## Obtain read-counts -read_counts = read.delim(as.character(raw_data[1,1]),header=F,stringsAsFactors=F,row.names=1) + +header = read.delim(as.character(raw_data[1,1]),header=F,stringsAsFactors=F,row.names=1,nrows=1) +has_header = (class(header[1,1]) == "character") + +read_counts = read.delim(as.character(raw_data[1,1]),header=has_header,stringsAsFactors=F,row.names=1) + for(i in 2:length(raw_data[,1])) { print("parsing counts from:") print(raw_data[i,1])