galogistic_monitor: Monitor the process of the genetic algorithm by printing a...

In wrbrooks/galogistic: Builds a logistic regression model using the genetic algorithm for variable selection

Usage

galogistic_monitor(obj)

Arguments

obj

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (obj) 
{
    minEval = min(obj$evaluations)
    filter = obj$evaluations == minEval
    bestObjectCount = sum(rep(1, obj$popSize)[filter])
    if (bestObjectCount > 1) {
        bestSolution = obj$population[filter, ][1, ]
    }
    else {
        bestSolution = obj$population[filter, ]
    }
    outputBest = paste(obj$iter, " #selected=", sum(bestSolution), 
        " Best (Error=", minEval, "): ", sep = "")
    selected = as.logical(bestSolution)
    out.col = which(names(data) == output)
    selected = paste(names(data[, -out.col][, selected]), collapse = ", ")
    outputBest = paste(outputBest, selected, "\n")
    cat(outputBest)
  }

wrbrooks/galogistic documentation built on May 4, 2019, 11:58 a.m.