From 17bab8422795379a3cd40d6e5d0482e995a0d2f5 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 8 Jul 2022 19:29:17 +0200
Subject: Use inherits() instead of comparing class to string

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

(limited to 'R/mkinfit.R')

diff --git a/R/mkinfit.R b/R/mkinfit.R
index bf164c3f..1c2f8b5e 100644
--- a/R/mkinfit.R
+++ b/R/mkinfit.R
@@ -274,7 +274,7 @@ mkinfit <- function(mkinmod, observed,
   # Check mkinmod and generate a model for the variable whith the highest value
   # if a suitable string is given
   parent_models_available = c("SFO", "FOMC", "DFOP", "HS", "SFORB", "IORE", "logistic")
-  if (class(mkinmod) != "mkinmod") {
+  if (!inherits(mkinmod, "mkinmod")) {
     presumed_parent_name = observed[which.max(observed$value), "name"]
     if (mkinmod[[1]] %in% parent_models_available) {
       speclist <- list(list(type = mkinmod, sink = TRUE))
-- 
cgit v1.2.1