## This file is part of the R-package `ape'.
## See the file ../COPYING for licensing issues.
birthdeath <- function(phy)
{
## This file is part of the R-package `ape'.
## See the file ../COPYING for licensing issues.
birthdeath <- function(phy)
{
N <- length(phy$tip.label)
x <- c(NA, branching.times(phy))
dev <- function(a, r) {
N <- length(phy$tip.label)
x <- c(NA, branching.times(phy))
dev <- function(a, r) {
- else warning('the names of argument "S" and the names of the tip labels
-did not match: the former were ignored in the analysis.')
+ else warning('the names of argument "S" and the tip labels
+did not match: the former were ignored.')