evalBIC: Evaluate the fitness of a genalg "chromosome"

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

Usage

evalBIC(chromosome = c())

Arguments

chromosome

Author(s)

Wesley Brooks

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 (chromosome = c()) 
{
    returnVal = Inf
    minLV = 2
    if (sum(chromosome) >= minLV) {
        out.col = which(names(data) == output)
        selected = cbind(output = data[, output], data[, -out.col][, 
            chromosome == 1])
        f = as.formula("output~.")
        model = lm(f, data = selected)
        n = nrow(selected)
        returnVal = AIC(model, k = log(n))
    }
    return(returnVal)
  }

wrbrooks/genetic documentation built on May 4, 2019, 11:59 a.m.