styler

easystats · Sep 6, 2024 · a14f650 · a14f650
1 parent fa5989c
commit a14f650
Showing 1 changed file with 40 additions and 29 deletions.
diff --git a/tests/testthat/test-data.frame-with-rvar.R b/tests/testthat/test-data.frame-with-rvar.R
@@ -14,18 +14,21 @@ test_that("data.frame w/ rvar_col descrive_posterior etc", {
 
 
   ## describe_posterior
-  res <- describe_posterior(dfx, rvar_col = "my_rvar",
-                            centrality = "MAP", ci_method = "hdi", ci = 0.8,
-                            test = c("pd", "p_map", "rope", "equivalence_test"),
-                            rope_ci = 1, rope_range = c(-1, 0.5))
+  res <- describe_posterior(dfx,
+    rvar_col = "my_rvar",
+    centrality = "MAP", ci_method = "hdi", ci = 0.8,
+    test = c("pd", "p_map", "rope", "equivalence_test"),
+    rope_ci = 1, rope_range = c(-1, 0.5)
+  )
   res.ref <- describe_posterior(dfx$my_rvar,
-                                centrality = "MAP", ci_method = "hdi", ci = 0.8,
-                                test = c("pd", "p_map", "rope", "equivalence_test"),
-                                rope_ci = 1, rope_range = c(-1, 0.5))
+    centrality = "MAP", ci_method = "hdi", ci = 0.8,
+    test = c("pd", "p_map", "rope", "equivalence_test"),
+    rope_ci = 1, rope_range = c(-1, 0.5)
+  )
   expect_true(all(c("mu", "sigma") %in% colnames(res)))
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],
-               res.ref[setdiff(colnames(res.ref), "Parameter")],
-               ignore_attr = TRUE
+    res.ref[setdiff(colnames(res.ref), "Parameter")],
+    ignore_attr = TRUE
   )
 
   ## CIs
@@ -35,8 +38,8 @@ test_that("data.frame w/ rvar_col descrive_posterior etc", {
   expect_identical(nrow(format(res)), 3L)
   expect_identical(ncol(format(res)), 3L)
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],
-               res.ref[setdiff(colnames(res.ref), "Parameter")],
-               ignore_attr = TRUE
+    res.ref[setdiff(colnames(res.ref), "Parameter")],
+    ignore_attr = TRUE
   )
 
   res <- eti(dfx, rvar_col = "my_rvar", ci = c(0.8, 0.95))
@@ -45,17 +48,17 @@ test_that("data.frame w/ rvar_col descrive_posterior etc", {
   expect_identical(nrow(format(res)), 3L)
   expect_identical(ncol(format(res)), 4L)
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],
-               res.ref[setdiff(colnames(res.ref), "Parameter")],
-               ignore_attr = TRUE
+    res.ref[setdiff(colnames(res.ref), "Parameter")],
+    ignore_attr = TRUE
   )
 
   ## estimate_density
   res <- estimate_density(dfx, rvar_col = "my_rvar")
   res.ref <- estimate_density(dfx$my_rvar)
   expect_true(all(c("mu", "sigma") %in% colnames(res)))
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],
-               res.ref[setdiff(colnames(res.ref), "Parameter")],
-               ignore_attr = TRUE
+    res.ref[setdiff(colnames(res.ref), "Parameter")],
+    ignore_attr = TRUE
   )
 })
 
@@ -79,30 +82,38 @@ test_that("data.frame w/ rvar_col bayesfactors", {
   expect_identical(nrow(format(res)), 3L)
   expect_identical(ncol(format(res)), 3L)
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],
-               res.ref[setdiff(colnames(res.ref), "Parameter")],
-               ignore_attr = TRUE
+    res.ref[setdiff(colnames(res.ref), "Parameter")],
+    ignore_attr = TRUE
   )
 
-  res <- si(dfx, rvar_col = "my_rvar", prior = "other_rvar",
-            BF = c(1, 3), verbose = FALSE)
-  res.ref <- si(dfx$my_rvar, prior = dfx$other_rvar,
-                BF = c(1, 3), verbose = FALSE)
+  res <- si(dfx,
+    rvar_col = "my_rvar", prior = "other_rvar",
+    BF = c(1, 3), verbose = FALSE
+  )
+  res.ref <- si(dfx$my_rvar,
+    prior = dfx$other_rvar,
+    BF = c(1, 3), verbose = FALSE
+  )
   expect_true(all(c("mu", "sigma") %in% colnames(res)))
   expect_identical(nrow(format(res)), 3L)
   expect_identical(ncol(format(res)), 4L)
   expect_equal(format(res[setdiff(colnames(res), c("mu", "sigma"))]),
-               format(res.ref[setdiff(colnames(res.ref), "Parameter")]),
-               ignore_attr = TRUE
+    format(res.ref[setdiff(colnames(res.ref), "Parameter")]),
+    ignore_attr = TRUE
   )
 
 
   ## bayesfactor_parameters
-  res <- bayesfactor_parameters(dfx, rvar_col = "my_rvar", prior = "other_rvar",
-                                verbose = FALSE)
-  res.ref <- bayesfactor_parameters(dfx$my_rvar, prior = dfx$other_rvar,
-                                    verbose = FALSE)
+  res <- bayesfactor_parameters(dfx,
+    rvar_col = "my_rvar", prior = "other_rvar",
+    verbose = FALSE
+  )
+  res.ref <- bayesfactor_parameters(dfx$my_rvar,
+    prior = dfx$other_rvar,
+    verbose = FALSE
+  )
   expect_equal(res[setdiff(colnames(res), c("mu", "sigma"))],
-               res.ref[setdiff(colnames(res.ref), "Parameter")],
-               ignore_attr = TRUE
+    res.ref[setdiff(colnames(res.ref), "Parameter")],
+    ignore_attr = TRUE
   )
 })