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")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.