bugfix

KlausVigo · Jan 31, 2024 · 6687277 · 6687277
1 parent 1cd2373
commit 6687277
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/treedist.R b/R/treedist.R
@@ -704,7 +704,7 @@ kf0 <- function(tree1, tree2, check.labels = TRUE, rooted = FALSE) {
   }
 
   bp1 <- fun2(tree1, rooted)
-  bp2 <- fun2(tree1, rooted)
+  bp2 <- fun2(tree2, rooted)
 
   w1 <- numeric(max(tree1$edge))
   w2 <- numeric(max(tree2$edge))