From 15344fb864b1a4b1c6d7e4b3ae716f516cc7719a Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Fri, 10 May 2024 15:07:27 +0200
Subject: [PATCH] Update t_test.R

---
 R/t_test.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/R/t_test.R b/R/t_test.R
index 2bbbfd3..c074248 100644
--- a/R/t_test.R
+++ b/R/t_test.R
@@ -101,10 +101,10 @@ t_test <- function(data,
   # prepare data
   if (is.null(grp)) {
     tdat <- data.frame(dv)
-    t_formula <- as.formula("dv ~ 1")
+    t_formula <- stats::as.formula("dv ~ 1")
   } else {
     tdat <- data.frame(dv, grp)
-    t_formula <- as.formula("dv ~ grp")
+    t_formula <- stats::as.formula("dv ~ grp")
   }
   # perfom wilcox test
   htest <- stats::t.test(
@@ -230,9 +230,9 @@ t_test <- function(data,
   # effect size
   dat$y <- dat$y * dat$w
   if (is.null(y_values)) {
-    t_formula <- as.formula("y ~ 1")
+    t_formula <- stats::as.formula("y ~ 1")
   } else {
-    t_formula <- as.formula("y ~ g")
+    t_formula <- stats::as.formula("y ~ g")
   }
 
   if (nrow(dat) > 20) {