Mercurial > repos > yufei-luo > differential_expression_analysis_pipeline_for_rnaseq_data

annotate DiffExpAnal/DESeqTools/removeNul.R @ 6:59cc55f611f6 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:46:42 -0500
parents 63799b789162
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
1 # removeNul
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
2 # remove genes with null counts in all samples
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
3
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
4 # input : counts
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
5 # output : counts
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
6
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
7 # created Feb 7th, 2012
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
8 # Marie-Agnes Dillies
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
9
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
10
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
11 removeNul <- function( counts, info = NULL ){
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
12
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
13 return( list(counts[rowSums(counts) > 0,], info[rowSums(counts) > 0,]) )
63799b789162 Uploaded
yufei-luo
parents:
diff changeset
14 }