Giters

johnbaums / rmaxent

Tools for working with Maxent in R

Geek Repo:Geek Repo

Github PK Tool:Github PK Tool

In simplify, `drop` may be undefined

johnbaums opened this issue · comments

commented 
if (sum(pct == pct[1]) > 1) {
      candidates <- subset(vif, Variables %in% names(pct)[pct == 
        pct[1]])
      drop <- as.character(candidates$Variables[which.max(candidates$VIF)])
    }
    message("Dropping ", drop)

If condition is FALSE, drop will not exist.