X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2FCDF.birth.death.R;h=847c37dcd20dd60ecc4649a725ff27ccfe27fd59;hb=3ece2ec76da287a8a86339827cc44e193fe16cdd;hp=5fa088a9140edd69916ea00be76f7adcd90b21b6;hpb=50912ceb91f34227ae89432b6e6a8969a3a3f5f7;p=ape.git

diff --git a/R/CDF.birth.death.R b/R/CDF.birth.death.R
index 5fa088a..847c37d 100644
--- 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]