Error when r* = 0

[fickse]

In gsynth, when r is 0 (either by user selection or CV) I get the following error:

Error in `rownames<-`(`*tmp*`, value = iname[which(out$tr == 1)]) :
  attempt to set 'rownames' on an object with no dimensions

The error comes from the following lines (800-803) in gsynth.R:

if (!is.null(out$alpha.tr)) {
        rownames(out$alpha.tr) <- iname[which(out$tr == 1)]
        colnames(out$alpha.tr) <- ""
    }

To reproduce:

data(gsynth)
out <- gsynth(Y ~ D + X1 + X2, data = simdata, index = c("id","time"), force = "two-way", CV = FALSE, r = 0, se = TRUE, inference = "parametric", nboots = 1000, parallel = FALSE)

[gaborcsardi]

Hi, this is a read only mirror of CRAN, please see the package authors in the DESCRIPTION file.