# EXAMPLE 1: The minimum is at (pi,pi) ----------------------------------------
fun <- function(x) {
-cos(x[1])*cos(x[2])*exp(-((x[1] - pi)^2 + (x[2] - pi)^2))
}
ans0 <- abc_optim(rep(0,2), fun, lb=-10, ub=10, criter=50)
ans0[c("par", "counts", "value")]
ans1 <- abc_cpp(rep(0,2), fun, lb=-10, ub=10, criter=50)
ans1[c("par", "counts", "value")]
# EXAMPLE 2: global minimum at about (-15.81515)
fw <- function (x)
10*sin(0.3*x)*sin(1.3*x^2) + 0.00001*x^4 + 0.2*x+80
ans <- abc_optim(50, fw, lb=-100, ub=100, criter=100)
ans[c("par", "counts", "value")]
# EXAMPLE 3: 5D sphere, global minimum at about (0,0,0,0,0)
fs <- function(x) sum(x^2)
ans <- abc_optim(rep(10,5), fs, lb=-100, ub=100, criter=200)
ans[c("par", "counts", "value")]
Run the code above in your browser using DataLab