From 968ba68f6370654e9857d939b4d9020db0dc14cf Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Fri, 22 Nov 2024 12:43:45 +0100
Subject: [PATCH] fix

---
 R/find_transformation.R | 6 +++---
 R/null_model.R          | 3 ---
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/R/find_transformation.R b/R/find_transformation.R
index c86afe584..414ef49f8 100644
--- a/R/find_transformation.R
+++ b/R/find_transformation.R
@@ -56,12 +56,12 @@ find_transformation.default <- function(x, include_all = FALSE, ...) {
 
   # sanity check for multivariate models
   if (is_multivariate(x)) {
-    result <- lapply(find_terms(x), function(i) {
+    result <- lapply(find_terms(x, verbose = FALSE), function(i) {
       find_transformation(i[["response"]])
     })
     unlist(result)
   } else if (include_all) {
-    lapply(find_terms(x), function(i) {
+    lapply(find_terms(x, verbose = FALSE), function(i) {
       stats::setNames(
         unlist(lapply(i, find_transformation), use.names = FALSE),
         clean_names(i)
@@ -69,7 +69,7 @@ find_transformation.default <- function(x, include_all = FALSE, ...) {
     })
   } else {
     # "raw" response
-    rv <- find_terms(x)[["response"]]
+    rv <- find_terms(x, verbose = FALSE)[["response"]]
     # for divisions, like x/3, `find_response()` returns a character vector
     # of length 2, one with the nominator and the denominator. In this case,
     # check against original response
diff --git a/R/null_model.R b/R/null_model.R
index d7c3cd09e..115652c07 100644
--- a/R/null_model.R
+++ b/R/null_model.R
@@ -18,9 +18,6 @@
 #'
 #' @export
 null_model <- function(model, verbose = TRUE, ...) {
-  # check if model formula is ok
-  formula_ok(model)
-
   model_formula <- find_formula(model, verbose = verbose)
   offset_term <- tryCatch(
     {