mislabeling in irf plot

[giancarlobruno]

When using the function irf() specifying the impulse variable it seems that the plot has the labels wrong. Here is an example:

library(vars)
dati <- ts.union(BJsales.lead,BJsales)
var.sales <- vars::VAR(y=diff(dati),p=8)
var.irf1 <- vars::irf(var.sales,
boot=FALSE,n.ahead=8,ortho=FALSE,cumulative=FALSE)
var.irf2 <- vars::irf(var.sales,impulse="BJsales.lead",response="BJsales",
boot=FALSE,n.ahead=8,ortho=FALSE,cumulative=FALSE)

first plot lower panel peak at 3

plot(var.irf1)

lower panel peak at 4

plot(var.irf2)

[extrospective]

Both peaked above 4 when I re-ran this code.
Please provide the images if you are seeing something else.

Recommend ticket get closed if not further supported.

[giancarlobruno]

I still get the same behaviour. Please find attached what I see in the two plots