Use lengths()

ms609 · Feb 23, 2024 · dcfe3f8 · dcfe3f8
1 parent 87e4da9
commit dcfe3f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/tree_distance_kendall-colijn.R b/R/tree_distance_kendall-colijn.R
@@ -148,7 +148,7 @@ KCVector <- function(tree) {
   mrca <- apply(is, 2, function(i) 
     max(intersect(ancestors[[i[1]]], ancestors[[i[2]]])))
 
-  rootDist <- vapply(ancestors, length, integer(1))
+  rootDist <- lengths(ancestors)
   structure(rootDist[mrca], Size = nTip, class = "dist")
 }