use inherits for class check

ejikeugba · Nov 24, 2024 · 6476369 · 6476369
1 parent 0b9fa0c
commit 6476369
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/serp.fit.R b/R/serp.fit.R
@@ -9,7 +9,7 @@ serpfit <- function(x, y, wt, yMtx, link, slope, reverse, control,
     slope <- 'partial'
   if (slope == 'partial'){
     if (!is.null(globalEff)) {
-      if(class(globalEff) != "formula")
+      if (!inherits(globalEff, "formula"))
         stop("no object of class formula used in globalEff", call. = FALSE)
       if (grepl('["]', c(globalEff)))
         stop("variable name in quotes not allowed in globalEff",