From 4690747837f7266059dbd56690b52fe51aa5bd2e Mon Sep 17 00:00:00 2001
From: Luca Coraggio <luca.coraggio@unina.it>
Date: Mon, 20 Jun 2022 16:10:02 +0000
Subject: version 2.0.2

---
 R/rsc.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/rsc.R b/R/rsc.R
index 8182d1c..f82df51 100644
--- a/R/rsc.R
+++ b/R/rsc.R
@@ -4,7 +4,7 @@ rsc <- function(cv, threshold = "minimum"){
     ## cv         = u   ## a class cv_rsc or any other correlation matrix
     ## threshold  = "minimum" ## "minimum", "minimum1se" or numeric in (0,1)
 
-    if(class(cv) == "rsc_cv"){
+    if(is(cv, "rsc_cv")){
 
         ## check threshold
         if(is.numeric(threshold)){
-- 
cgit v1.2.3