js.test | R Documentation |
Based on an existing bootstrap object, the test statistic allows to test joint hypotheses for selected entries of the structural matrix B. The test statistic reads as
(Rvec(\widehat{B}) - r)'R(\widehat{\mbox{Cov}}[vec(B^*)])^{-1}R'(Rvec(\widehat{b} - r)) \sim χ^2_J,
where \widehat{\mbox{Cov}}[vec(B^*)] is the estimated covariance of vectorized bootstrap estimates of structural parameters. The composite null hypothesis is H_0: Rvec(B)= r.
js.test(x, R, r = NULL)
x |
Object of class 'sboot' |
R |
A J*K^2 selection matrix, where J is the number of hypotheses and K the number of time series. |
r |
A J*1 vector of restrictions |
A list of class "jstest" with elements
test_statistic |
Test statistic |
p_value |
P-value |
R |
Selection matrix |
r |
Vector of restrictions |
Herwartz, H., 2018. Hodges Lehmann detection of structural shocks - An analysis of macroeconomic dynamics in the Euro Area, Oxford Bulletin of Economics and Statistics
mb.boot
, wild.boot
# data contains quarterly observations from 1965Q1 to 2008Q3 # x = output gap # pi = inflation # i = interest rates v1 <- vars::VAR(USA, lag.max = 10, ic = "AIC" ) x1 <- id.dc(v1) # Bootstrapping of SVAR bb <- wild.boot(x1, nboot = 1000, n.ahead = 30) # Testing the hypothesis of a lower triangular matrix as # relation between structural and reduced form errors R <- rbind(c(0,0,0,1,0,0,0,0,0), c(0,0,0,0,0,0,1,0,0), c(0,0,0,0,0,0,0,1,0)) c.test <- js.test(bb, R) summary(c.test)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.