1 files changed, 1 insertions, 1 deletions
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)){