fix

VascoElbrecht · Sep 28, 2016 · f457704 · f457704
1 parent e70db08
commit f457704
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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!