From: Benjamin Auder <benjamin.auder@somewhere>
Date: Tue, 8 Jun 2021 13:13:01 +0000 (+0200)
Subject: Fix typo
X-Git-Url: https://git.auder.net/doc/html/css/current/scripts/pieces/R.css?a=commitdiff_plain;h=d09659f0e609bc8c1a6c390329d8f2d3b3ac5b24;p=agghoo.git

Fix typo
---

diff --git a/R/agghoo.R b/R/agghoo.R
index 4a25b17..528df2a 100644
--- a/R/agghoo.R
+++ b/R/agghoo.R
@@ -50,7 +50,7 @@ agghoo <- function(data, target, task = NA, gmodel = NA, params = NA, quality =
     params <- as.list(params)
   if (!is.na(params) && !is.list(params))
     stop("params: numerical, character, or list (passed to model)")
-  if (!is.na(gmodel) && !is.character(model) && is.na(params))
+  if (!is.na(gmodel) && !is.character(gmodel) && is.na(params))
     stop("params must be provided when using a custom model")
   if (is.na(gmodel) && !is.na(params))
     stop("model must be provided when using custom params")