# This is a function that is used within estimate()
data(optimism)
specification = specify_bsvarSIGN$new(optimism, p = 4)
set.seed(123)
posterior = estimate(specification, 50)
class(posterior)
## ------------------------------------------------
## Method `specify_posterior_bsvarSIGN$get_posterior`
## ------------------------------------------------
data(optimism)
specification = specify_bsvarSIGN$new(optimism)
set.seed(123)
estimate = estimate(specification, 50)
estimate$get_posterior()
## ------------------------------------------------
## Method `specify_posterior_bsvarSIGN$is_normalised`
## ------------------------------------------------
data(optimism)
specification = specify_bsvarSIGN$new(optimism)
set.seed(123)
estimate = estimate(specification, 20)
# check normalisation status afterwards
posterior$is_normalised()
Run the code above in your browser using DataLab