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