From 9cd72bf57d5c23af48efa3f3a4f7169a71f4b8be Mon Sep 17 00:00:00 2001
From: Klaus Schliep <klaus.schliep@gmail.com>
Date: Thu, 14 Nov 2024 21:43:15 +0100
Subject: [PATCH] clean up

---
 R/fitch64.R | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/R/fitch64.R b/R/fitch64.R
index 7a62ca16..f5f40ee5 100644
--- a/R/fitch64.R
+++ b/R/fitch64.R
@@ -120,13 +120,9 @@ fitch_spr <- function (tree, f, trace=0L)
 {
   nTips <- as.integer(length(tree$tip.label))
   m <- max(tree$edge)
-#  f <- init_fitch(data, FALSE, FALSE, m=4L)
   for (i in 1:nTips) {
-# remove tip
     treetmp <- dropTip(tree, i)
     edge <- treetmp$edge
-#    f$prep_spr(edge)
-#    score <- f$pscore_vec(edge, i)
     score <- f$pscore_spr(edge, i)
     nt <- which.min(score)
 # check if different
@@ -138,8 +134,6 @@ fitch_spr <- function (tree, f, trace=0L)
     if (i != root) {
       tmp <- dropNode(tree, i, all.ch = ch)
       if (!is.null(tmp)) {
-#        f$prep_spr(tmp[[1]]$edge)
-#        score <- f$pscore_vec(tmp[[1]]$edge, i)
         score <- f$pscore_spr(tmp[[1]]$edge, i)
         nt <- which.min(score)
         if(!(tmp[[1]]$edge[nt, 2L] %in% tmp[[4]])){