context("test-sip")
test_that("sip works", {
num_iter_p <- integer_parameter(
id = "num_iter",
default = 100L,
distribution = expuniform_distribution(lower = 1L, upper = 10000L),
description = "Number of iterations"
)
delta_p <- numeric_parameter(
id = "delta",
default = c(4.5, 2.4, 1.9),
distribution = normal_distribution(mean = 5, sd = 1),
description = "Multiplying factors"
)
method_p <- character_parameter(
id = "method",
default = "kendall",
values = c("kendall", "spearman", "pearson"),
description = "Correlation method"
)
inverse_p <- logical_parameter(
id = "inverse",
default = TRUE,
description = "Inversion parameter"
)
dimred_p <- 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)"
)
ks_p <- 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"
)
quantiles_p <- numeric_range_parameter(
id = "quantiles",
default = c(0.15, 0.90),
lower_distribution = uniform_distribution(0, .4),
upper_distribution = uniform_distribution(.6, 1),
description = "Quantile cutoff range"
)
parameters <- parameter_set(
num_iter_p,
delta_p,
method_p,
inverse_p,
dimred_p,
ks_p,
quantiles_p,
forbidden = "inverse == (method == 'kendall')"
)
expect_warning(
design <- sip(parameters, n = 1000),
regexp = "could only produce"
)
expect_lte(nrow(design), 1000)
expect_is(design$num_iter, "integer")
expect_is(design$method, "character")
expect_is(design$inverse, "logical")
expect_true(!any(design$inverse == (design$method == "kendall")))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.