test_compute_structural_shocks.R
In bsvarSIGNs: Bayesian SVARs with Sign, Zero, and Narrative Restrictions

data(optimism)

set.seed(1)
suppressMessages(
  specification_no1 <- specify_bsvarSIGN$new(optimism)
)
run_no1             <- estimate(specification_no1, 3, 1, show_progress = FALSE)
ss                  <- compute_structural_shocks(run_no1)

set.seed(1)
suppressMessages(
  ss2               <- optimism |>
    specify_bsvarSIGN$new() |>
    estimate(S = 3, thin = 1, show_progress = FALSE) |>
    compute_structural_shocks()
)



expect_equal(
  length(dim(ss)), length(dim(ss2)),
  info = "compute_structural_shocks: same output dimentions for normal and pipe workflow."
)

expect_identical(
  ss[1,1,1], ss2[1,1,1],
  info = "compute_structural_shocks: identical for normal and pipe workflow."
)