bug fix in read.dna + change the default of tol in drop.fossil

[ape.git] / R / CDF.birth.death.R

diff --git a/R/CDF.birth.death.R b/R/CDF.birth.death.R
index 5fa088a9140edd69916ea00be76f7adcd90b21b6..847c37dcd20dd60ecc4649a725ff27ccfe27fd59 100644 (file)
--- a/R/CDF.birth.death.R
+++ b/R/CDF.birth.death.R
@@ -287,7 +287,7 @@ rlineage <-
     .makePhylo(edge[1:j, ], edge.length[1:j], i)
 }
 
-drop.fossil <- function(phy, tol = 0)
+drop.fossil <- function(phy, tol = 1e-8)
 {
     n <- Ntip(phy)
     x <- dist.nodes(phy)[n + 1, ][1:n]