Mercurial > repos > amawla > edger

comparison edgeR.pl @ 1:aab4a565c0e8 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author amawla
date Tue, 04 Aug 2015 15:25:43 -0400
parents 91ca33096034
children 2e3f0fbd745a
comparison
equal deleted inserted replaced
0:91ca33096034 1:aab4a565c0e8
353 colnames(tab_tmp)[-1] <- paste(i, colnames(tab_tmp)[-1], sep=\":\") 353 colnames(tab_tmp)[-1] <- paste(i, colnames(tab_tmp)[-1], sep=\":\")
354 if(is.null(tab)) { 354 if(is.null(tab)) {
355 tab <- tab_tmp 355 tab <- tab_tmp
356 } else tab <- cbind(tab, tab_tmp[,-1]) 356 } else tab <- cbind(tab, tab_tmp[,-1])
357 } 357 }
358 tab <- cbind(Feature=rownames(tab), tab)
358 "; 359 ";
359 } 360 }
360 print Rcmd " 361 print Rcmd "
361 write.table(tab, \"$OPTIONS{o}\", quote=F, sep=\"\\t\", row.names=F) 362 write.table(tab, \"$OPTIONS{o}\", quote=F, sep=\"\\t\", row.names=F)
362 sink(type=\"message\") 363 sink(type=\"message\")