Fixed bug in adaptive.weights()

ekstroem · Jul 21, 2023 · d972636 · d972636
1 parent cf772ac
commit d972636
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: MESS
 Type: Package
 Title: Miscellaneous Esoteric Statistical Scripts
 Version: 0.5.12
-Date: 2022-10-25
+Date: 2023-07-21
 Authors@R: c(person(given="Claus Thorn", family="Ekstrøm", role = c("aut", "cre"), email = "[email protected]"),
              person(given="Niels Aske Lundtorp", family="Olsen", role=c("ctb"), email="[email protected]"))
 Maintainer: Claus Thorn Ekstrøm <[email protected]>
@@ -37,4 +37,4 @@ BugReports: https://github.com/ekstroem/MESS/issues
 Encoding: UTF-8
 ByteCompile: true
 License: GPL-2
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3
diff --git a/NEWS.md b/NEWS.md
@@ -5,6 +5,7 @@
 
 *   Fixed code to match changes to the Matrix package
 *   Added improved residuals for Wallyplot thanks to Niels Aske Lundtorp Olsen
+*   Fixed a bug in adaptive.weights()
 
 # MESS 0.5.9
 

diff --git a/R/adaptive.weights.R b/R/adaptive.weights.R
@@ -40,7 +40,7 @@ adaptive.weights <- function(x, y, nu=1, weight.method=c("multivariate", "univar
     weight.method <- match.arg(weight.method)
 
     nobs <- nrow(x)
-    if (nobs+1 <= ncol(x)) {
+    if ((nobs+1) <= ncol(x)) {
         warning("using univariate weight method since p>n")
         weight.method <- "univariate"
     }