Nothing
validate_generator <- function(g) {
context(sprintf("Generator %s", function_id(g)))
test_that("Is a valid generator",
expect_true(inherits(g, "soo_function_generator")))
test_that("Has a name and id", {
attribute_names <- names(attributes(g))
expect_true("id" %in% attribute_names)
expect_true("name" %in% attribute_names)
})
}
validate_generator(generate_ackley_function)
validate_generator(generate_beale_function)
validate_generator(generate_branin_function)
validate_generator(generate_bbob2009_function)
validate_generator(generate_double_sum_function)
validate_generator(generate_ellipsoidal_function)
validate_generator(generate_goldstein_price_function)
validate_generator(generate_griewank_function)
validate_generator(generate_himmelblau_function)
validate_generator(generate_kotanchek_function)
validate_generator(generate_mexican_hat_function)
validate_generator(generate_rastrigin_function)
validate_generator(generate_rosenbrock_function)
validate_generator(generate_sphere_function)
validate_generator(generate_weierstrass_function)
validate_generator(generate_weierstrass_function)
validate_generator(generate_generalized_maxq_function)
validate_generator(generate_generalized_mxhilb_function)
validate_generator(generate_nonsmooth_generalized_brown_2_function)
validate_generator(generate_chained_cb3_i_function)
validate_generator(generate_chained_cb3_ii_function)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.