# \donttest{
library(APRScenario)
data(NKdata)
# Minimal example with a toy specification
spec <- bsvarSIGNs::specify_bsvarSIGN$new(as.matrix(NKdata[,2:4]), p = 1)
est <- bsvars::estimate(spec, S = 10) # Use small S for fast test
gen_mats(posterior = est, specification = spec)
# }
Run the code above in your browser using DataLab