Skip to content

Commit

Permalink
remove duplication
Browse files Browse the repository at this point in the history
  • Loading branch information
adamwang15 committed Jul 17, 2024
1 parent b0985f8 commit fd0adbe
Show file tree
Hide file tree
Showing 2 changed files with 0 additions and 46 deletions.
23 changes: 0 additions & 23 deletions README.Rmd
Original file line number Diff line number Diff line change
Expand Up @@ -93,26 +93,3 @@ irf = compute_impulse_responses(posterior, horizon = 60)
plot(irf, probability = 0.68)
```

A repliaction of Arias, Rubio-Ramírez and Waggoner (2018).

```r
data(optimism)

# optimism shock
# no contemporaneous effect on productivity
zero_irf = matrix(0, nrow = 5, ncol = 5)
zero_irf[1, 1] = 1
# positive contemporaneous effect on stock prices
sign_irf = array(0, dim = c(5, 5, 1))
sign_irf[2, 1, 1] = 1

specification = specify_bsvarSIGN$new(optimism * 100,
p = 4,
sign_irf = sign_irf,
zero_irf = zero_irf)

posterior = estimate(specification, S = 100)
irf = compute_impulse_responses(posterior, horizon = 40)
plot(irf, probability = 0.68)
```

23 changes: 0 additions & 23 deletions README.md
Original file line number Diff line number Diff line change
Expand Up @@ -112,26 +112,3 @@ posterior = estimate(specification, S = 100)
irf = compute_impulse_responses(posterior, horizon = 60)
plot(irf, probability = 0.68)
```

A repliaction of Arias, Rubio-Ramírez and Waggoner (2018).

``` r
data(optimism)

# optimism shock
# no contemporaneous effect on productivity
zero_irf = matrix(0, nrow = 5, ncol = 5)
zero_irf[1, 1] = 1
# positive contemporaneous effect on stock prices
sign_irf = array(0, dim = c(5, 5, 1))
sign_irf[2, 1, 1] = 1

specification = specify_bsvarSIGN$new(optimism * 100,
p = 4,
sign_irf = sign_irf,
zero_irf = zero_irf)

posterior = estimate(specification, S = 100)
irf = compute_impulse_responses(posterior, horizon = 40)
plot(irf, probability = 0.68)
```

0 comments on commit fd0adbe

Please sign in to comment.