From 17556182f98e2dc51e236b01aec7eef054e7e2f9 Mon Sep 17 00:00:00 2001
From: Luca Coraggio <luca.coraggio@unina.it>
Date: Thu, 21 Oct 2021 12:10:10 +0000
Subject: version 2.0.1

---
 R/rmad.R | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'R')

diff --git a/R/rmad.R b/R/rmad.R
index 46e9b35..5e9a1d7 100644
--- a/R/rmad.R
+++ b/R/rmad.R
@@ -18,6 +18,8 @@ rmad <- function(x, y = NULL, na.rm = FALSE, even.correction = FALSE, num.thread
   ## set number of threads
   if (num.threads == "half-max") {
     num.threads <- 0L
+  } else if (num.threads == 0) {
+    num.threads <- 1L
   } else {
     storage.mode(num.threads) <- "integer"
   }
-- 
cgit v1.2.3