Nothing
context("Functions that create interpretable inputs")
testthat::test_that("Extracting numerical features is okay", {
testthat::expect_equal(
extract_numerical_feature(c("x > 4", "x <= 4"), 5)$label,
"x > 4"
)
testthat::expect_equal(
extract_numerical_feature(c("x > 4", "x <= 4"), 4)$label,
"x <= 4"
)
testthat::expect_equal(
extract_numerical_feature(c("x <= 4 & x <= 5",
"x > 5 & x <= 8"), 3)$label,
"x <= 4"
)
testthat::expect_equal(
extract_numerical_feature(c("x <= 4 & x <= 5",
"x > 5 & x <= 8"), 7)$label,
"5 < x <= 8"
)
})
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.