styler

easystats · Aug 8, 2023 · d3c4fc3 · d3c4fc3
1 parent d4f149d
commit d3c4fc3
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 7 deletions.
diff --git a/R/contrs.R b/R/contrs.R
@@ -54,8 +54,10 @@
 #' mtcars <- data_arrange(mtcars, select = c("cyl", "am"))
 #'
 #' mm <- unique(model.matrix(~ cyl * am, data = mtcars))
-#' rownames(mm) <- c("cyl4.am0", "cyl4.am1", "cyl6.am0",
-#'                   "cyl6.am1", "cyl8.am0", "cyl8.am1")
+#' rownames(mm) <- c(
+#'   "cyl4.am0", "cyl4.am1", "cyl6.am0",
+#'   "cyl6.am1", "cyl8.am0", "cyl8.am1"
+#' )
 #'
 #' solve(mm)
 #' #>             cyl4.am0 cyl4.am1 cyl6.am0 cyl6.am1 cyl8.am0 cyl8.am1
@@ -72,9 +74,10 @@ contr.deviation <- function(n, base = 1,
                             contrasts = TRUE,
                             sparse = FALSE) {
   cont <- stats::contr.treatment(n,
-                                 base = base,
-                                 contrasts = contrasts,
-                                 sparse = sparse)
+    base = base,
+    contrasts = contrasts,
+    sparse = sparse
+  )
   if (contrasts) {
     n <- nrow(cont)
     cont <- cont - 1 / n

diff --git a/tests/testthat/test-contr.deviation.R b/tests/testthat/test-contr.deviation.R
@@ -3,6 +3,6 @@ test_that("contr.deviation", {
   c.sum <- solve(cbind(Intercept = 1, contr.sum(3)))
   c.deviation <- solve(cbind(Intercept = 1, contr.deviation(3)))
 
-  expect_equal(c.deviation[1,], c.sum[1,])
-  expect_equal(c.deviation[-1,], c.treatment[-1,])
+  expect_equal(c.deviation[1, ], c.sum[1, ])
+  expect_equal(c.deviation[-1, ], c.treatment[-1, ])
 })