test if tests work now again

KlausVigo · Jan 15, 2024 · 927a461 · 927a461
1 parent 8d32c6c
commit 927a461
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/phylo.R b/R/phylo.R
@@ -124,7 +124,7 @@ optimGamma <- function(tree, data, shape = 1, k = 4, ...) {
   fn <- function(shape, tree, data, k, ...) pml.fit(tree, data, shape = shape,
       k = k, ...)
   res <- optimize(f = fn, interval = c(0.1, 100), lower = 0.1, upper = 100,
-    maximum = TRUE,  tol = .01, tree = tree, data = data, k = k, ...)
+    maximum = TRUE,  tol = .001, tree = tree, data = data, k = k, ...)
   res
 }