Nothing
library(testthat)
library(imbalance)
# Loads data
data(ecoli1)
data(glass0)
data(haberman)
data(iris0)
data(newthyroid1)
data(wisconsin)
data(yeast4)
context("Feature selection testing")
test_that("Correct feature selection", {
# class attribute missing
expect_error(feature_selection(iris, "Boruta"))
expect_error(feature_selection(iris0, "Boruta", class_attr = "Class"), NA)
expect_error(feature_selection(iris0, "Boruta", class_attr = "Class", num_iterations = 200), NA)
expect_error(feature_selection(iris, "chi_squared"))
expect_error(feature_selection(iris, "chi_squared", class_attr = "Species", exclude = c("Petal.Width", "Sepal.Width")), NA)
expect_error(feature_selection(iris, "information_gain", class_attr = "Species", num_features = 2), NA)
# exclude argument contains things not present in the dataset
expect_error(feature_selection(ecoli1, "information_gain", class_attr = "Class", exclude = c("Petal.Width", "Sepal.Width")))
expect_error(feature_selection(ecoli1, "information_gain", class_attr = "Class", exclude = c("Alm1", "Alm2")), NA)
expect_error(feature_selection(ecoli1, "sym_uncertainty", class_attr = "Class", exclude = c("Alm1", "Alm2")), NA)
expect_error(feature_selection(ecoli1, "oneR", class_attr = "Class", exclude = c("Alm1", "Alm2"), num_features = 3), NA)
expect_error(feature_selection(ecoli1, "RF_importance", class_attr = "Class", num_features = 3), NA)
expect_error(feature_selection(newthyroid1, "cfs", class_attr = "Class"), NA)
})
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.