Commit 9edb5d38 authored by Holger Brandl's avatar Holger Brandl

make sure count cutoff is numeric

parent e941f54f
......@@ -2,6 +2,8 @@
#require(cummeRbund)
getExpressedGenes <- function(cuff, ...){
warning("DEPRECATED use filterByExpression instead")
fpkmMat<-cummeRbund::repFpkmMatrix(genes(cuff))
rownames(filterByExpression(fpkmMat, ...))
......@@ -9,6 +11,8 @@ getExpressedGenes <- function(cuff, ...){
filterByExpression <- function(fpkmMat, minFPKM=1, logMode=F){
stopifnot(is.numeric(minFPKM))
if(logMode) fpkmMat<-log10(fpkmMat+1) ## add a pseudocount
geneMax <- apply(fpkmMat, 1, max)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment