Code: Select all

`Error in `[.data.frame`(indata, , outvars) : undefined columns selected`

Code: Select all

```
estoptions <- list(xc = TRUE, sort.force = FALSE, EstM=1, x64=TRUE, optimat = TRUE, debugmode=FALSE, resi.store = FALSE, clean.files = FALSE);
fullmodel <- runMLwiN(Formula = logit(var, cons) ~ ...,
D="Binomial", indata = f, estoptions = estoptions, MLwiNPath=mlwin, workdir=wdrlmwin);
```

Code: Select all

`drop.data = FALSE`

Code: Select all

```
if (drop.data) {
outvars <- c(resp)
# Multiple membership IDs if applicable
if (!is.null(mm)) {
for (i in 1:length(mm)) {
if (!any(is.na(mm[[i]]))) {
varnames <- unlist(mm[[i]]$mmvar)
weightnames <- unlist(mm[[i]]$weights)
outvars <- union(outvars, varnames)
outvars <- union(outvars, weightnames)
}
}
}
```