R/tests.R

In mdziekon/eiti-alhe-firefly:

test <- function(seed = 0, dim = 2, count = 15, iters = 10)
{
    r <- seed
    if (r == 0)
        r <- runif(1, 0, 10000000)

    print(r)
    set.seed(r)

    result <- ffa_meta(
        goal =  multimodal,
        dimensions = dim,
        params = list(
            fflies_count = count,
            iterations = iters,
            coefficients = list(
                absorption = 1,
                gamma = 0.0,
                randomness = 0.1,
                attraction_base = 1,
                attraction_min = 0.05
            ),
            ranges = list(
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10),
                list(min = -10, max = 10)
            ),
            rand_scaling = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        )
    )

    title = "FFA for Multimodal Function with intensity function"
    popul = "( n = "
    iterStr = ", iters. = "

    print(paste(format(round(result$x, 5), nsmall = 6), collapse = " "))
    print(result$y)

    if (dim == 2)
    {
        plotResult(result$p$end, result$p$mode, result$p$ranges,
                   paste(c(title, popul, count, iterStr, iters,"). Best : (",
                           format(round(result$x[1], 3), nsmall = 3), ",",
                           format(round(result$x[2], 3), nsmall = 3), ") ->",
                           format(round(result$y[1], 3), nsmall = 3)), collapse = " "))
    }

}