#Examples
#Evolution of PI
f<-function(x){
return(abs(x-pi));
}
m<-mcga(500,1,1,-1000000,1000000,100,evalFunc=f);
print(m[1,]);
#Calculation LMS (Least median of squares) estimates
f<-function(candidates){
res<-y-candidates[1]-candidates[2]*x
return(median(res^2));
}
n<-100;
x<-rnorm(n);
e<-rnorm(n);
y<-5+5*x+e;
m<-mcga(popsize=500, chsize=2, minval=-9999999, maxval=9999999, evalFunc=f, maxiter=50)
print("Best solution for LMS:")
print(m[1,])
print("Cost is:")
print(f(m[1,]))
Run the code above in your browser using DataLab