From ddc04a1c2b15f165c6769c017e13b9c8d2e770cb Mon Sep 17 00:00:00 2001 From: fruce-ki Date: Wed, 5 Oct 2016 15:38:21 +0100 Subject: [PATCH] minor bugfix in cross-listing of results --- R/rats.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/rats.R b/R/rats.R index a434ba3..f6ad37a 100644 --- a/R/rats.R +++ b/R/rats.R @@ -259,7 +259,7 @@ call_DTU <- function(annot= NULL, TARGET_COL= "target_id", PARENT_COL= "parent_i with(resobj, { # Cross-display the DTU calls. if (test_transc) - Genes[, transc_DTU := Transcripts[, any(DTU), by = parent_id][, V1] ] + Genes[, transc_DTU := Transcripts[, any(DTU, na.rm=TRUE), by = parent_id][, V1] ] if (test_genes) Transcripts[, gene_DTU := merge(Genes[, .(parent_id, DTU)], Transcripts[, .(parent_id)])[, DTU] ]