grid_space_filling(
  hidden_units(),
  penalty(),
  epochs(),
  activation(),
  learn_rate(c(0, 1), trans = scales::transform_log()),
  size = 10,
  original = FALSE
)
# ------------------------------------------------------------------------------
# comparing methods
if (rlang::is_installed("ggplot2")) {
  library(dplyr)
  library(ggplot2)
  set.seed(383)
  parameters(trees(), mixture()) |>
    grid_space_filling(size = 25, type = "latin_hypercube") |>
    ggplot(aes(trees, mixture)) +
    geom_point() +
    lims(y = 0:1, x = c(1, 2000)) +
    ggtitle("latin hypercube")
  set.seed(383)
  parameters(trees(), mixture()) |>
    grid_space_filling(size = 25, type = "max_entropy") |>
    ggplot(aes(trees, mixture)) +
    geom_point() +
    lims(y = 0:1, x = c(1, 2000)) +
    ggtitle("maximum entropy")
  parameters(trees(), mixture()) |>
    grid_space_filling(size = 25, type = "audze_eglais") |>
    ggplot(aes(trees, mixture)) +
    geom_point() +
    lims(y = 0:1, x = c(1, 2000)) +
    ggtitle("Audze-Eglais")
  parameters(trees(), mixture()) |>
    grid_space_filling(size = 25, type = "uniform") |>
    ggplot(aes(trees, mixture)) +
    geom_point() +
    lims(y = 0:1, x = c(1, 2000)) +
    ggtitle("uniform")
}
Run the code above in your browser using DataLab