From 8b43fb90ed3bc98f5de8d6f934ea6739dbd1e694 Mon Sep 17 00:00:00 2001 From: Bo Li Date: Fri, 5 Apr 2013 13:16:29 -0500 Subject: [PATCH] Removed a too stringent sanity check in rsem-gen-transcript-plots --- rsem-gen-transcript-plots | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rsem-gen-transcript-plots b/rsem-gen-transcript-plots index 21d1db8..552632a 100755 --- a/rsem-gen-transcript-plots +++ b/rsem-gen-transcript-plots @@ -76,7 +76,7 @@ generate_a_page <- function(tids, gene_id = NULL) { vec <- readdepth_uniq[[tids[i]]] stopifnot(!is.null(vec)) if (is.na(vec[[2]])) wiggle_uniq <- rep(0, vec[[1]]) else wiggle_uniq <- as.numeric(unlist(strsplit(vec[[2]], split = " "))) - stopifnot(len == length(wiggle_uniq), len == sum(wiggle >= wiggle_uniq)) +# stopifnot(len == length(wiggle_uniq), len == sum(wiggle >= wiggle_uniq)) heights <- rbind(wiggle_uniq, wiggle - wiggle_uniq) barplot(heights, space = 0, border = NA, names.arg = 1:len, col = c("black", "red")) } -- 2.39.2