styler

easystats · Nov 20, 2024 · 87ca2c8 · 87ca2c8
1 parent 72e7793
commit 87ca2c8
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/tests/testthat/test-find_terms.R b/tests/testthat/test-find_terms.R
@@ -104,7 +104,7 @@ test_that("find_terms, - box cox", {
     find_terms(model),
     list(response = "I((mpg^0.7 - 1)/0.7)", conditional = "hp")
   )
-  model <- lm((mpg ^ -1.3 - 1) / -1.3 ~ hp, data = mtcars)
+  model <- lm((mpg^-1.3 - 1) / -1.3 ~ hp, data = mtcars)
   expect_identical(
     find_terms(model),
     list(response = c("(mpg^-1.3 - 1)", "-1.3"), conditional = "hp")

diff --git a/tests/testthat/test-find_transformation.R b/tests/testthat/test-find_transformation.R
@@ -63,7 +63,7 @@ test_that("find_transformation - box-cox", {
 })
 
 test_that("find_transformation - box-cox, minus", {
-  m <- lm((mpg ^ -1.3 - 1) / -1.3 ~ hp, data = mtcars)
+  m <- lm((mpg^-1.3 - 1) / -1.3 ~ hp, data = mtcars)
   expect_identical(find_transformation(m), "box-cox")
   expect_identical(
     get_transformation(m)$transformation(5),

diff --git a/tests/testthat/test-gamlss.R b/tests/testthat/test-gamlss.R
@@ -166,7 +166,7 @@ test_that("find_parameters", {
   set.seed(123)
   dat <<- data.frame(
     Y = sample(20:50, 100, replace = TRUE),
-    date = sample(seq(as.Date('1999/01/01'), as.Date('2000/01/01'), by = "day"), 10),
+    date = sample(seq(as.Date("1999/01/01"), as.Date("2000/01/01"), by = "day"), 10),
     cont1 = rchisq(100, df = 2),
     cont2 = runif(100),
     cat1 = sample(LETTERS[1:3], 100, replace = TRUE),