monitor <-
function(obj, data, output) {
minEval = min(obj$evaluations, na.rm=TRUE)
filter = which(obj$evaluations == minEval)
bestObjectCount = sum(rep(1, obj$n.pop)[filter])
# ok, deal with the situation that more than one object is best
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.