1 ## unique.multiPhylo.R (2008-02-06)
3 ## Revomes Duplicate Trees from a List
5 ## Copyright 2007-2008 Emmanuel Paradis
7 ## This file is part of the R-package `ape'.
8 ## See the file ../COPYING for licensing issues.
10 unique.multiPhylo <- function(x, incomparables = FALSE,
11 use.edge.length = FALSE,
12 use.tip.label = TRUE, ...)
19 if (all.equal(x[[j]], x[[i]],
20 use.edge.length = use.edge.length,
21 use.tip.label = use.tip.label)) {