From ac941b6f79c9a1870597c928cce5324d4e055430 Mon Sep 17 00:00:00 2001
From: Klaus Schliep <klaus.schliep@gmail.com>
Date: Mon, 23 Sep 2024 14:54:22 +0200
Subject: [PATCH] more testing webr

---
 NAMESPACE  | 2 +-
 R/zzz.R    | 3 +--
 man/pml.Rd | 2 +-
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/NAMESPACE b/NAMESPACE
index 8de189e7..e441a323 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -83,6 +83,7 @@ S3method(unique,dist)
 S3method(unique,phyDat)
 S3method(unique,splits)
 S3method(update,pml)
+S3method(vcov,pml)
 export(AICc)
 export(Ancestors)
 export(CI)
@@ -245,7 +246,6 @@ export(tidy)
 export(transferBootstrap)
 export(treedist)
 export(upgma)
-export(vcov.pml)
 export(wRF.dist)
 export(wpgma)
 export(write.ancestral)
diff --git a/R/zzz.R b/R/zzz.R
index f179f52a..317ed1b6 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -50,8 +50,7 @@
 
 
 chk <- requireNamespace("fastmatch", quietly = TRUE)
-if(!chk) fmatch <- match
-
+fmatch <- ifelse(chk, fastmatch::fmatch, base::match)
 
 loadModule("Fitch_mod", TRUE)
 
diff --git a/man/pml.Rd b/man/pml.Rd
index 39f97570..451b3319 100644
--- a/man/pml.Rd
+++ b/man/pml.Rd
@@ -25,7 +25,7 @@ optim.pml(object, optNni = FALSE, optBf = FALSE, optQ = FALSE,
 
 \method{anova}{pml}(object, ...)
 
-vcov.pml(object, ...)
+\method{vcov}{pml}(object, ...)
 
 \method{print}{pml}(x, ...)
 }