various bug fixes

[ape.git] / R / njs.R

diff --git a/R/njs.R b/R/njs.R
index 1f7ee8a85aca4c486b7b50710ce3fab5f39768ec..4345bfe34e925c8fc8843c794a21e90567c2087f 100644 (file)
--- a/R/njs.R
+++ b/R/njs.R
@@ -1,4 +1,4 @@
-## njs.R (2011-10-11)
+## njs.R (2012-03-30)
 
 ## Tree Reconstruction from Incomplete Distances With NJ* or bio-NJ*
 
@@ -9,6 +9,8 @@
 
 .NJS_BIONJS <- function(libs, X, fs = 15)
 {
+    if (fs < 1)
+        stop("argument 'fs' must be a non-zero positive integer")
     if (is.matrix(X)) X <- as.dist(X)
     X[is.na(X)] <- -1
     X[X < 0] <- -1