From b0aa5c8c6faa45dcd2ffab07691d26e56dc5827a Mon Sep 17 00:00:00 2001 From: Andrew McDavid Date: Thu, 28 May 2015 12:18:57 -0700 Subject: [PATCH] sometimes need to explicitly cast to character --- DESCRIPTION | 4 ++-- R/ZlmFit.R | 3 ++- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index e13ce8b..5938ac7 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,8 +1,8 @@ Package: MAST Type: Package Title: Model-based Analysis of Single Cell Transcriptomics -Version: 0.930 -Date: 2015-05-26 +Version: 0.931 +Date: 2015-05-28 Author: Andrew McDavid , Greg Finak , Masanao Yajima Maintainer: Greg Finak diff --git a/R/ZlmFit.R b/R/ZlmFit.R index 95d28d9..396c8b2 100644 --- a/R/ZlmFit.R +++ b/R/ZlmFit.R @@ -232,7 +232,8 @@ setMethod('summary', signature=c(object='ZlmFit'), function(object, logFC=TRUE, names(llrt) <- doLRT llrt <- data.table(melt(llrt)) setnames(llrt, c('test.type', 'L1', 'value'), c('component', 'contrast', 'Pr(>Chisq)')) - llrt[,component := c(disc='D', cont='C', hurdle='H')[component]] + llrt[,':='(component=c(disc='D', cont='C', hurdle='H')[component], + primerid=as.character(primerid))] setkey(llrt, primerid, component, contrast) setkey(dt, primerid, component, contrast) dt <- merge(llrt, dt, all.x=TRUE, all.y=TRUE)