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)
}
}
}