ace() now uses node labels if available

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: ape
 Version: 5.7-1.8
-Date: 2024-01-15
+Date: 2024-01-28
 Title: Analyses of Phylogenetics and Evolution
 Authors@R: c(person("Emmanuel", "Paradis", role = c("aut", "cre", "cph"), email = "[email protected]", comment = c(ORCID = "0000-0003-3092-2199")),
   person("Simon", "Blomberg", role = c("aut", "cph"), comment = c(ORCID = "0000-0003-1062-0839")),

NEWS

@@ -68,6 +68,8 @@ OTHER CHANGES
       size. The code is three times faster with small trees; twice
       faster with ~1000 tips (the gain is less with bigger trees).
 
+    o ace() now uses node labels, if available, in the output.
+
 
 
 		CHANGES IN APE VERSION 5.7-1

R/ace.R

@@ -1,8 +1,8 @@
-## ace.R (2022-03-02)
+## ace.R (2024-01-28)
 
 ##   Ancestral Character Estimation
 
-## Copyright 2005-2022 Emmanuel Paradis and 2005 Ben Bolker
+## Copyright 2005-2024 Emmanuel Paradis and 2005 Ben Bolker
 
 ## This file is part of the R-package `ape'.
 ## See the file ../COPYING for licensing issues.
@@ -298,6 +298,12 @@ ace <-
             obj$lik.anc <- lik.anc
         }
     }
+    ## edited from Thomas G (PR #106):
+    if (!is.null(phy$node.label)) {
+        names(obj$ace) <- phy$node.label
+        if (!is.null(obj$CI95))
+            rownames(obj$CI95) <- phy$node.label
+    }
     obj$call <- match.call()
     class(obj) <- "ace"
     obj