Hello everyone,
I've got a pretty simple exercise to solve with genalg. The goal is to
maximize the revenue.
Even tough genalg is not respecting rather simple constraints.
What's wrong with my code?
library(genalg)
evaluate <- function(X=c()) {
returnVal = NA;
a<-c(X*c(2,0,0,4,8,1,0),X*c(0,2,1,0,3,4,5),X*c(1,0,1,0,3,0,1),X*c(7,2,0,5,0,0,9),X*c(0,4,0,1,0,11,0),X*c(3,6,10,0,0,0,0),X*c(1,0,0,8,0,1,3),X*c(0,9,0,0,1,4,0));
b<-c(148,87,234,176,23,845,234,111);
d<-b-a;
if (min (d)>=0)
{returnVal<-sum(a*c(-50,-237,-128,-34,-27,-239,-78,-99))}else{returnVal<-10000}
returnVal
}
rbga.results =
rbga(c(0,0,0,0,0,0,0),c(100,100,100,100,100,100,100),popSize=500,
evalFunc=evaluate, iters=1000,verbose=TRUE, mutationChance=0.01)
summary.rbga(rbga.results,echo=TRUE)
plot(rbga.results)
Thank you for your help
best regards
--
View this message in context:
http://r.789695.n4.nabble.com/Genalg-not-respecting-constraints-tp3326819p3326819.html
Sent from the R help mailing list archive at Nabble.com.
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
