Nothing
context("Features: MISC - Principal Component")
test_that("Expected Output", {
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 PCA features
features = calculateFeatureSet(feat.object, "pca")
# test return value types and ranges
expect_equal(length(features), 10L)
expect_list(features)
expect_equal(as.character(sapply(features, class)), c(rep("numeric", 8L), "integer", "numeric"))
expect_true( testNumber(features$pca.expl_var.cov_x, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var.cor_x, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var.cov_init, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var.cor_init, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var_PC1.cov_x, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var_PC1.cor_x, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var_PC1.cov_init, lower = 0, upper = 1) )
expect_true( testNumber(features$pca.expl_var_PC1.cor_init, lower = 0, upper = 1) )
expect_identical(features$pca.costs_fun_evals, 0L)
expect_true( testNumber(features$pca.costs_runtime, lower = 0) )
})
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.