R/print.GESearch.R

In gramEvol: Grammatical Evolution for R

print.GESearch <- function (x, ..., max.line.len = 60) {
  
  cat("GE Search Results:\n")
  cat("  Expressions Tested:", x$numExpr, '\n')
  if (!is.null(x$currentExpression)) {
    cat("  Current Expression:", as.character(x$currentExpression), '\n')
    cat("  Current Cost:      ", x$currentCost, '\n')
  } else {
    cat("  Best Chromosome:   ", x$bestSequence, '\n')
  }

  cat("  Best Expression:   ", as.character(x$bestExpression), '\n')
  cat("  Best Cost:         ", x$bestCost, '\n')
}

print.GeneticAlg.int <- function(x, ...) {
  cat("Genetic Algorithm Search Results:\n")
  
  cat("  No. Generations:", as.character(x$population$currentIteration), "\n")
  #cat("  No. Evaluations:", as.character(x$population$currentIteration * x$settings$totalPopulation), "\n")
  cat("  Best Genome:    ", as.character(x$best$genome), "\n")
  cat("  Best Cost:      ", as.character(x$best$cost), "\n")
}

print.EvolutionStrategy.int <- function(x, ...) {
  cat("Evolution Strategy Search Results:\n")
  
  cat("  No. Generations:", as.character(x$population$currentIteration), "\n")
  #cat("  No. Evaluations:", as.character(x$population$currentIteration * x$settings$totalPopulation), "\n")
  cat("  Best Genome:    ", as.character(x$best$genome), "\n")
  cat("  Best Cost:      ", as.character(x$best$cost), "\n")
}

print.GrammaticalEvolution <- function(x, ..., show.genome = FALSE) {
  cat("Grammatical Evolution Search Results:\n")
  
  cat("  No. Generations: ", as.character(x$population$currentIteration), "\n")
  #cat("  No. Evaluations:", as.character(x$population$currentIteration * x$settings$totalPopulation), "\n")

  if (show.genome) {
    cat("  Best Genome:     ", x$best$genome, "\n")
  }

  if (length(x$best$expressions) == 1) {
    cat("  Best Expression: ", as.character(x$best$expressions), "\n")
  } else {
    cat("  Best Expressions:", as.character(x$best$expressions[1]), "\n")
    for (i in 2:length(x$best$expressions)) {
      cat("                  :", as.character(x$best$expressions[i]), "\n")
    }
  }

  cat("  Best Cost:       ", as.character(x$best$cost), "\n")
}