[R] Error with VAR function of VARS package

[Gabriel Paul Mihalache]

I'm trying to get the VAR method of the VARS package to work and I get
this weird (probably internal) error:

> usvardata
        CBR  CDR RGDPGrowthRate
16104    16  8.6          -1.98
16105  15.8  8.6           1.62
...
16123  14.4  8.6           3.55
16124 14.39 8.52           2.75

> usvar <- VAR(usvardata, p = 1, type = "both", lag.max = 2, ic = "SC")
Error in `[[<-.data.frame`(`*tmp*`, i, value = c(31L, 28L, 28L, 30L, 28L,  :
  replacement has 57 rows, data has 19

Does anyone have any idea of what should I do next?
Thank you!