test.deopt10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- DEopt(Nfit10, algo=list( nG=90, printDetail=FALSE, printBar=FALSE, min=rep(0,20), max=rep(1, 20) ))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$OFvalue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.deopt10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- DEopt(Nfit10s, algo=list( nG=90, printDetail=FALSE, printBar=FALSE, min=rep(0,20), max=rep(1, 20) ))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$OFvalue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.deoptim10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- DEoptim(fn = Nfit10, lower = rep(0, 20), upper = rep(1, 20), control=DEoptim.control(trace=FALSE, itermax=30))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$optim$bestval } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.deoptim10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- DEoptim(fn = Nfit10s, lower = rep(0, 20), upper = rep(1, 20), control=DEoptim.control(trace=FALSE, itermax=30))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$optim$bestval } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.ga10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- ga(type = "real", fitness = Fit10, min = rep(0, 20), max = rep(1, 20), monitor = NULL, maxiter=60)) time[i] <- sum(ttim[1:2]) objective[i] <- tres@fitnessValue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.ga10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- ga(type = "real", fitness = Fit10s, min = rep(0, 20), max = rep(1, 20), monitor = NULL, maxiter=60)) time[i] <- sum(ttim[1:2]) objective[i] <- tres@fitnessValue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.genopt10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- genopt(fun = Nfit10, population = matrix(runif(20 * 20), 20), lower = 0, upper = 1, births = 1100, trace=FALSE)) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$objective[1] } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.genopt10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- genopt(fun = Nfit10s, population = matrix(runif(20 * 20), 20), lower = 0, upper = 1, births = 1100, trace=FALSE)) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$objective[1] } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.genoud10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- genoud(fn = Nfit10, nvar = 20, print.level=0, pop.size=20, max.generations=8, Domain=cbind(rep(0,20), 1), boundary.enforce=2)) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$value } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.genoud10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- genoud(fn = Nfit10s, nvar = 20, print.level=0, pop.size=20, max.generations=12, Domain=cbind(rep(0,20), 1), boundary.enforce=2)) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$value } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.gensa10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- GenSA(fn = Nfit10, lower=rep(0,20), upper=rep(1,20), control=list(maxit=100))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$value } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.gensa10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- GenSA(fn = Nfit10s, lower=rep(0,20), upper=rep(1,20), control=list(maxit=100))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$value } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.lsopt10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- LSopt(Nfit10, algo=list( x0=runif(20), printDetail=FALSE, printBar=FALSE, nS=4000, neighbour=function(x) x + runif(length(x)) ))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$OFvalue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.lsopt10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- LSopt(Nfit10s, algo=list( x0=runif(20), printDetail=FALSE, printBar=FALSE, nS=4000, neighbour=function(x) x + runif(length(x)) ))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$OFvalue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.malsch10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- malschains(fn = Nfit10, lower = rep(0, 20), upper = rep(1,20), maxEvals=4600, trace=FALSE)) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$fitness } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.malsch10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- malschains(fn = Nfit10s, lower = rep(0, 20), upper = rep(1,20), maxEvals=4600, trace=FALSE)) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$fitness } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.sann10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- optim(fn = Nfit10, par = runif(20), method="SANN", control=list(maxit=5400))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$value[1] } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.sann10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- optim(fn = Nfit10s, par = runif(20), method="SANN", control=list(maxit=5400))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$value[1] } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.soma10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- soma(cost = Nfit10, bounds=list(min=rep(0,20), max=rep(1,20)), options=list(nMigrations=16))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$cost[tres$leader] } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.soma10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- soma(cost = Nfit10s, bounds=list(min=rep(0,20), max=rep(1,20)), options=list(nMigrations=16))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$cost[tres$leader] } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.taopt10a.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- TAopt(Nfit10, algo=list( x0=runif(20), printDetail=FALSE, printBar=FALSE, nS=250, neighbour=function(x) x + runif(length(x)) ))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$OFvalue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans } test.taopt10s.rev <- function (trials=100) { time <- objective <- rep(NA, trials) for(i in 1:trials) { ttim <- system.time(tres <- TAopt(Nfit10s, algo=list( x0=runif(20), printDetail=FALSE, printBar=FALSE, nS=250, neighbour=function(x) x + runif(length(x)) ))) time[i] <- sum(ttim[1:2]) objective[i] <- -tres$OFvalue } ans <- cbind(time=time, objective=objective) attr(ans, "call") <- match.call() ans }