Update test_specify.R

bsvars · Jul 15, 2024 · ce7db40 · ce7db40
1 parent 3cf0f80
commit ce7db40
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/inst/tinytest/test_specify.R b/inst/tinytest/test_specify.R
@@ -8,13 +8,13 @@ spec = specify_bsvarSIGN$new(oil)
 expect_identical(class(spec)[1],
                  "BSVARSIGN")
 
-expect_identical(dim(spec$data_matrices$Y)[1],
-                 dim(spec$data_matrices$X)[1])
+expect_identical(dim(spec$data_matrices$Y)[2],
+                 dim(spec$data_matrices$X)[2])
 
 expect_identical(length(spec$data_matrices$get_data_matrices()),
                  2L)
 
-expect_identical(dim(spec$prior$B)[1], dim(spec$data_matrices$X)[2])
+expect_identical(dim(spec$prior$A)[2], dim(spec$data_matrices$X)[1])
 
 expect_identical(class(spec$prior$get_prior()),
                  "list")
@@ -51,13 +51,13 @@ spec           = specify_bsvarSIGN$new(oil,
 expect_identical(class(spec)[1],
                  "BSVARSIGN")
 
-expect_identical(dim(spec$data_matrices$Y)[1],
-                 dim(spec$data_matrices$X)[1])
+expect_identical(dim(spec$data_matrices$Y)[2],
+                 dim(spec$data_matrices$X)[2])
 
 expect_identical(length(spec$data_matrices$get_data_matrices()),
                  2L)
 
-expect_identical(dim(spec$prior$B)[1], dim(spec$data_matrices$X)[2])
+expect_identical(dim(spec$prior$A)[2], dim(spec$data_matrices$X)[1])
 
 expect_identical(class(spec$prior$get_prior()),
                  "list")