refacto: use inherits

modal-inria · May 15, 2022 · 60ffab1 · 60ffab1
1 parent 91c1c9f
commit 60ffab1
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/LarsPath.R b/R/LarsPath.R
@@ -308,7 +308,7 @@ coef.LarsPath <- function(object, index = NULL, mode = c("lambda", "step", "frac
   if (missing(index) || is.null(index)) {
     stop("index is missing.")
   }
-  if (class(object) != "LarsPath") {
+  if (!inherits(object, "LarsPath")) {
     stop("object must be a LarsPath object")
   }
 

diff --git a/R/predict.R b/R/predict.R
@@ -23,7 +23,7 @@ predict.LarsPath <- function(object, Xnew, lambda, mode = c("fraction", "lambda"
   if (missing(object)) {
     stop("object is missing.")
   }
-  if (class(object) != "LarsPath") {
+  if (!inherits(object, "LarsPath")) {
     stop("object must be a LarsPath object.")
   }