indentation

reichlab · Aug 15, 2024 · b8743c8 · b8743c8
1 parent 70a2a7c
commit b8743c8
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/tests/testthat/test-split_disc_cont_ps_qs.R b/tests/testthat/test-split_disc_cont_ps_qs.R
@@ -80,13 +80,13 @@ test_that(
     ps <- seq(from = 0.1, to = 0.4, by = 0.1)
     qs <- c(rep(1.0, 3), rep(2.0, 1))
     expect_equal(
-        split_disc_cont_ps_qs(ps, qs),
-        list(
+      split_disc_cont_ps_qs(ps, qs),
+      list(
         disc_weight = 1.0,
         disc_ps = c(3 / 9, 6 / 9), disc_qs = c(1.0, 2.0),
         cont_ps = numeric(), cont_qs = numeric(),
         disc_ps_range = list(c(0.0, 3 / 9), c(3 / 9, 1.0))
-        )
+      )
     )
   }
 )
@@ -98,13 +98,13 @@ test_that(
     ps <- seq(from = 0.3, to = 0.9, by = 0.1)
     qs <- c(rep(1.0, 1), rep(2.0, 6))
     expect_equal(
-        split_disc_cont_ps_qs(ps, qs),
-        list(
+      split_disc_cont_ps_qs(ps, qs),
+      list(
         disc_weight = 1.0,
         disc_ps = c(3 / 9, 6 / 9), disc_qs = c(1.0, 2.0),
         cont_ps = numeric(), cont_qs = numeric(),
         disc_ps_range = list(c(0.0, 3 / 9), c(3 / 9, 1.0))
-        )
+      )
     )
   }
 )