| qpm_rule_eval | R Documentation |
Answers the question a policy committee actually asks — what if we responded differently? — by re-solving the model over a grid of rule parameters and scoring each one by the unconditional loss
L = sum_v w_v var(v) + sum_v w^d_v var(v - v_{-1})
computed from the model's stationary covariance rather than by simulation, so it is exact. Tracing the resulting variance pairs gives the inflation-output variability frontier (the Taylor curve).
qpm_rule_eval(model, grid, loss = c(pi = 1, y_gap = 0.5), diff_loss = NULL)
## S3 method for class 'qpm_rule_eval'
plot(x, xvar = NULL, yvar = NULL, ...)
model |
A |
grid |
A data frame of parameter values, one row per rule and one
column per parameter (e.g. from |
loss |
Named weights on the variances of levels, e.g.
|
diff_loss |
Named weights on the variances of first differences,
e.g. |
x |
A |
xvar, yvar |
Axes of the frontier. Either a variable name, whose
level variance is used, or a scored column name directly — so
|
... |
Unused. |
Rules that violate Blanchard-Kahn are reported as such rather than dropped: a policy response too weak to deliver determinacy is a finding, not a missing row.
A data frame of class qpm_rule_eval: the grid, the variance
of each targeted variable, the loss, and the Blanchard-Kahn outcome.
m <- qpm_template("bkl")
grid <- expand.grid(c2 = c(1.2, 1.5, 2, 3), c3 = c(0, 0.5, 1))
ev <- qpm_rule_eval(m, grid, loss = c(pi = 1, y_gap = 0.5),
diff_loss = c(i = 0.5))
ev
plot(ev)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.