don't test approximations yet until brms updates the reading function

nicholasjclark · Aug 30, 2024 · 98f9654 · 98f9654
1 parent 4cf53ef
commit 98f9654
Showing 1 changed file with 17 additions and 17 deletions.
diff --git a/tests/testthat/test-backends.R b/tests/testthat/test-backends.R
@@ -3,26 +3,26 @@ context("backends")
 skip_on_cran()
 
 test_that("variationals are converted to stanfit appropriately", {
-  dat <- data.frame(y = rnorm(100, 0, 1),
-                    series = as.factor('series1'))
+  # dat <- data.frame(y = rnorm(100, 0, 1),
+  #                   series = as.factor('series1'))
+  # # mod <- SM(mvgam(y ~ 1,
+  # #              data = dat,
+  # #              family = gaussian(),
+  # #              algorithm = 'meanfield',
+  # #              silent = 2))
+  # # expect_true(inherits(mod, 'mvgam'))
+  #
   # mod <- SM(mvgam(y ~ 1,
   #              data = dat,
   #              family = gaussian(),
-  #              algorithm = 'meanfield',
+  #              algorithm = 'fullrank',
+  #              silent = 2))
+  # expect_true(inherits(mod, 'mvgam'))
+  #
+  # mod <- SM(mvgam(y ~ 1,
+  #              data = dat,
+  #              family = gaussian(),
+  #              algorithm = 'laplace',
   #              silent = 2))
   # expect_true(inherits(mod, 'mvgam'))
-
-  mod <- SM(mvgam(y ~ 1,
-               data = dat,
-               family = gaussian(),
-               algorithm = 'fullrank',
-               silent = 2))
-  expect_true(inherits(mod, 'mvgam'))
-
-  mod <- SM(mvgam(y ~ 1,
-               data = dat,
-               family = gaussian(),
-               algorithm = 'laplace',
-               silent = 2))
-  expect_true(inherits(mod, 'mvgam'))
 })