# NOT RUN {
n = 100
genfits = matrix(NA, nrow=n, ncol=5)
genfits[1,3] = 50
objective = "max"
monitorfunc = monprogress
for(i in 1:(n-1)){
g=i
show(monitorfunc, g=g, genfits=genfits,
objective=objective, x=NULL)
genfits[g+1, 3] = genfits[g, 3] + runif(1, -2, 5)
}
# }
Run the code above in your browser using DataLab