use inherits

philchalmers · Sep 5, 2024 · 29f7ccb · 29f7ccb
1 parent ee6a36b
commit 29f7ccb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/estfun.R b/R/estfun.R
@@ -96,7 +96,7 @@ estfun.AllModelClass <- function(x, weights = extract.mirt(x, "survey.weights"),
   ## check class
     epars <- mod2values(x)
     was_discrete <- FALSE
-  if(class(x) == 'DiscreteClass'){
+  if(inherits(x, 'DiscreteClass')){
       was_discrete <- TRUE
       class(x) <- "SingleGroupClass"
   }