From f32bb21d4bb0db9f402c02df06d5043171eb3d50 Mon Sep 17 00:00:00 2001
From: Klaus Schliep <klaus.schliep@gmail.com>
Date: Fri, 6 Dec 2024 10:00:43 +0100
Subject: [PATCH] bug fix

---
 R/baseFreq.R | 1 -
 1 file changed, 1 deletion(-)

diff --git a/R/baseFreq.R b/R/baseFreq.R
index aa5bae21..b75120ec 100644
--- a/R/baseFreq.R
+++ b/R/baseFreq.R
@@ -143,7 +143,6 @@ print.summary.phyDat <- function(x, ...,
   cat("Composition Test (Chisq) \n")
   comp <- x$composition
   comp <- comp[order(comp[,3]),]
-  ind <- max(which(comp[,3] < 0.05))
   if(any(comp[,3] < 0.05)) ind <- max(which(comp[,3] < 0.05))
   else ind <- min(6, x$glance$nseq)
   print(comp[seq_len(ind),], digits=digits, ...)