Nothing
context("Features: MISC - Basic")
test_that("Non-Cellmapping Objects", {
set.seed(2015*03*26)
# (1) create a feature object:
X = t(replicate(n = 2000, expr = runif(n = 5, min = -10, max = 10)))
y = apply(X, 1, function(x) sum(x^2))
feat.object = createFeatureObject(X = X, y = y)
# (2) compute the Basic features
features = calculateFeatureSet(feat.object, "basic")
# test return value types and ranges
expect_identical(length(features), 15L)
expect_list(features)
expect_identical(as.character(sapply(features, class)),
c("integer", "integer", rep("numeric", 6L), rep("integer", 4L),
"logical", "integer", "numeric"))
expect_identical(features$basic.dim, 5L)
expect_identical(features$basic.observations, 2000L)
expect_true(features$basic.lower_min >= -10)
expect_true(features$basic.lower_max >= -10)
expect_true(features$basic.lower_min <= features$basic.lower_max)
expect_true(features$basic.upper_min <= 10)
expect_true(features$basic.upper_max <= 10)
expect_true(features$basic.upper_min <= features$basic.upper_max)
expect_true(features$basic.lower_min <= features$basic.upper_min)
expect_true(features$basic.lower_max <= features$basic.upper_max)
expect_identical(features$basic.blocks_min, 1L)
expect_identical(features$basic.blocks_max, 1L)
expect_identical(features$basic.cells_total, 1L)
expect_identical(features$basic.cells_filled, 1L)
expect_identical(features$basic.minimize_fun, TRUE)
expect_identical(features$basic.costs_fun_evals, 0L)
expect_true( testNumber(features$basic.costs_runtime, lower = 0) )
})
test_that("Cellmapping Objects", {
set.seed(2015*03*26)
# (1) create a feature object:
X = t(replicate(n = 2000, expr = runif(n = 5, min = -10, max = 10)))
y = apply(X, 1, function(x) sum(x^2))
feat.object = createFeatureObject(X = X, y = y, blocks = c(2, 3, 4, 3, 5))
# (2) compute the Basic features
features = calculateFeatureSet(feat.object, "basic")
# test return value types and ranges
expect_equal(length(features), 15L)
expect_list(features)
expect_equal(as.character(sapply(features, class)),
c("integer", "integer", rep("numeric", 6L), rep("integer", 4L),
"logical", "integer", "numeric"))
expect_identical(features$basic.dim, 5L)
expect_identical(features$basic.observations, 2000L)
expect_true(features$basic.lower_min >= -10)
expect_true(features$basic.lower_max >= -10)
expect_true(features$basic.lower_min <= features$basic.lower_max)
expect_true(features$basic.upper_min <= 10)
expect_true(features$basic.upper_max <= 10)
expect_true(features$basic.upper_min <= features$basic.upper_max)
expect_true(features$basic.lower_min <= features$basic.upper_min)
expect_true(features$basic.lower_max <= features$basic.upper_max)
expect_identical(features$basic.blocks_min, 2L)
expect_identical(features$basic.blocks_max, 5L)
expect_identical(features$basic.cells_total, as.integer(2 * 3 * 4 * 3 * 5))
expect_true( testNumber(features$basic.cells_filled,
lower = 1, upper = features$basic.cells_total) )
})
test_that("Test Basic Features", {
set.seed(2015*03*26)
# (1) create a feature object:
X = t(replicate(n = 2000, expr = runif(n = 5L, min = -10, max = 10)))
y = apply(X, 1, function(x) sum(x^2))
feat.object1 = createFeatureObject(X = X, y = y)
feat.object2 = createFeatureObject(X = X, y = y, minimize = FALSE)
feat.object3 = createFeatureObject(X = X, y = y, blocks = 3L)
feat.object4 = createFeatureObject(X = X, y = y, blocks = 3L, minimize = FALSE)
# (2) compute the Basic features
features1 = calculateFeatureSet(feat.object1, "basic")
features2 = calculateFeatureSet(feat.object2, "basic")
features3 = calculateFeatureSet(feat.object3, "basic")
features4 = calculateFeatureSet(feat.object4, "basic")
# test return value types and ranges
expect_equal(length(features1), 15L)
expect_equal(length(features2), 15L)
expect_equal(length(features3), 15L)
expect_equal(length(features4), 15L)
expect_list(features1)
expect_list(features2)
expect_list(features3)
expect_list(features4)
expect_equal(as.character(sapply(features1, class)),
c("integer", "integer", rep("numeric", 6L), rep("integer", 4L),
"logical", "integer", "numeric"))
expect_equal(as.character(sapply(features2, class)),
c("integer", "integer", rep("numeric", 6L), rep("integer", 4L),
"logical", "integer", "numeric"))
expect_equal(as.character(sapply(features3, class)),
c("integer", "integer", rep("numeric", 6L), rep("integer", 4L),
"logical", "integer", "numeric"))
expect_equal(as.character(sapply(features4, class)),
c("integer", "integer", rep("numeric", 6L), rep("integer", 4L),
"logical", "integer", "numeric"))
expect_true(features1$basic.minimize_fun)
expect_true(!features2$basic.minimize_fun)
expect_true(features3$basic.minimize_fun)
expect_true(!features4$basic.minimize_fun)
})
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.