# NOT RUN {
int_param <- integer_parameter(
id = "num_iter",
default = 100L,
distribution = expuniform_distribution(lower = 1L, upper = 10000L),
description = "Number of iterations"
)
print(int_param)
li <- as.list(int_param)
print(as_parameter(li))
subset_param <- subset_parameter(
id = "dimreds",
default = c("pca", "mds"),
values = c("pca", "mds", "tsne", "umap", "ica"),
description = "Which dimensionality reduction methods to apply (can be multiple)"
)
int_range_param <- integer_range_parameter(
id = "ks",
default = c(3L, 15L),
lower_distribution = uniform_distribution(1L, 5L),
upper_distribution = uniform_distribution(10L, 20L),
description = "The numbers of clusters to be evaluated"
)
parameter_set(
int_param,
subset_param,
int_range_param
)
# }
Run the code above in your browser using DataLab