From f4577045d272f3e26c1598462fbe32b201c0c8fd Mon Sep 17 00:00:00 2001 From: Vasco Elbrecht Date: Wed, 28 Sep 2016 15:00:02 +0200 Subject: [PATCH] fix --- PrimerMiner/R/strip_gaps.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PrimerMiner/R/strip_gaps.R b/PrimerMiner/R/strip_gaps.R index 8af14a7..9c423bc 100644 --- a/PrimerMiner/R/strip_gaps.R +++ b/PrimerMiner/R/strip_gaps.R @@ -32,7 +32,7 @@ exp <- rbind(exp, cbind(length(temp), sum(temp!="-"))) keep <- exp[,2]/exp[,1] data <- data[,(keep>=0.10)] -message(paste("Number of bases", lengtbefore, "before, removing gaps with >=", gaps, "gaps -> alignment length now", ncol(data), "bp", collapse="")) +message(paste("Number of bases", lengtbefore, "before, removing gaps with >=", gaps, "gaps -> alignment length now", ncol(data)-1, "bp", collapse="")) } # apply selective trimming!